#yRCxgz
#Q[X^[gɎsCxginit.txtŎw

#F[v΍͂Ă܂


#textR}h
#[hi0FȈՔŁ@1FʏŁA2FʏŁiݒ肪u\dljA3FȈՔŁ{ŏIEFCgwj
#
#e[h̎w`
#0,
#1,(w),
#2,(w),
#3,ŏIEFCg,
#
#[h1E2̎̎wiw肷ꍇ()Ŋj
#face=Gԍorʎqiʎqface.txtŎwB擪*tƒԂ̎ʎqŎwA+headŐ擪̃o[A+selectőIꂽo[A+evbchŐ퓬̌ʔLA+slcbchŐ퓬̑ILwj
#face_cans=G̃Ajxi8Wj
#lwait=ŏIEFCgi͂Sĕ\ꂽɑ҂ԁB-1Ȃ炸Ƒ҂BftHg-1j
#cwait=\EFCgi͂\xB0ȂuɑSĕ\BftHg1A[hQł0j
#swait={bNX\Aj[V̎ԁi0܂͖w肾ƈuŕ\B-1ŃftHĝ̂gpj
#xm=ʒuicŒA0ōBftHg͒j
#x=ʒuψʁiʒũYBftHg0j
#ym=ʒuibŉAuŏAcŒAaŏォIA0ŏBftHg͎j
#y=ʒuψ
#w=ipPʁBftHg56B0w肷ƃeLXgɍ킹j
#h=isPʁBftHg6B0w肷ƃeLXgɍ킹j
#mxh=ő̍i0ȉw肷ƐB\r蕶͂ɂ͖Ήj
#mnh=ŏ̍i\r蕶͂ɂ͖Ήj
#bxmargin={bNXt[Ɩ{̊Ԃ̃}[WiftHg4j
#lnmargin=sԂ̃}[WiftHg4j
#dsp=\tOi+1Ń{bNX\A+2ŉe\A+4Ń|[YTC\BftHgł͑Sĕ\7A[h2ł3B|[YTC̓L[͎t̏ꍇ̂ݕ\j
#keyok=L[̗Li+1ňꔭ\A+2lwaitOɕ̋3BftHg͗j
#
#Li{̕inputselectR}hɂΉj
#{
#iȉinputR}h̃eLXgElwłgpj
#%ev[CxgtOԍ]@܂́@%ev[*CxgtÕtO]FCxgtOiϐj̐l\
#%ev[V].wFCxgtO̐lSpŕ\
#%evm[*}bṽCxgtÕtO]F}bṽCxgtOiϐj̐l\
#%evd[*Gʎq]FGj\
#%bch[e]F퓬̃CxgL
#%str[*񎯕ʎq]FinputR}hɂē͂ꂽȂ
#%mem[o[ԍ]@܂́@%mem[*o[tO]Fo[̖O\iԍmember.txt̏ԂƑΉj
#%mem[h]F擪̃o[Q
#%mem[s]FmemR}hɂĎw肳ꂽo[Q
#%mem[V].icFo[̃ACR\
#%mem[V].nmicFo[ACRtŕ\
#%mem[V].comFo[̃Rg\
#%mem[V].exFo[̌ol\
#%mem[V].sn[*Oގʎq]Fo[̓Ȃǂ\
#%ene[*Gʎq]FG\B
#%eng[*GO[vʎq]FGO[v\B
#%sysm[*VXej[ʎq]FVXej[\B
#%it[*ACeʎq]FACe\B
#%it[*ACeʎq].hvFACe\B
#%it[*ACeʎq].eqF̑ACe\B
#%sk[*Zʎq]FZ\B
#%job[*E펯ʎq]FE햼\B
#%cond[*Ԉُ펯ʎq]FԈُ햼\B
#%elem[*ʎq]F\B
#%cdp[*Ԓlʎq]FԒl\B
#%stat[*Xe[^Xʎq]FXe[^X\B
#%jbt[*vtB[ʎʎq]FvtB[ʖ\B
#%eqt[*ӏʎq]Fӏ\B
#%gdF\
#%tmF\
#%pty[*p[eBʎq]Fp[eB\
#%pty[e]F݂̃p[eB\
#%pty[e].ormemFƂ̏ꍇ̓LQ
#%num[l]Fl؂̎wɍ킹`ŕ\B
#%%F%oꍇ
#
#%c***F̐Fi%c888FA%c000FA%c800FԁA%c080F΁A%c008FA%cdFftHgFA%ct1FʏFA%ct2FFA%ct3F\FA%ctuFAbvFA%ctdF_EFA%cdwFftHgF̖Fj
#%s0`%s6F\xύXis0WBxBPȂQ{AQȂS{xj
#%o[ACRԍ]@܂́@%o[*ACRtO]FACR\
#
#\nFs
#\+F,oꍇ
#\*F;oꍇ
#\{F(oꍇ
#\}F)oꍇ
#\\F\oꍇ
#\_FpXy[Xoꍇi̐擪pBł͂̂܂܂łnjj


#ifR}hAelifR}hAelseR}hAendifR}h
#^UnR}hsƔMf[^ireturntextsƃZbgjɔBelifelse͏ȗB
#if̑unifgƋt̔B
#
#andR}hAorR}h
#O̔茋ʂƃ~bNXBx*x*xƂꍇA(x*x)*xƂ`ŌvZB
#
#notR}h
#̔茋ʂ𔽓]B


#selectR}hiXVCxgAsCxgw肵ċ쓮^Cvj
#select(+ǉږ(ڏ))Fڒǉ
#select(*^Cg(Ŝ̏))Fs
#select(reset,all)FZbg
#select(reset,pos)FJ[\ʒû݃Zbg
#select(reset,list)Fڂ̂݃Zbg
#select(/)FOɒǉ̂I
#select(count,`)FڐQ
#select(setenable,ID,`)Fw肵ID̍ڂ̗LԂύXiIDwȂƁAŌɒǉڂΏۂɁj
#select(setname,ID,`)Fw肵ID̍ڂ̖O𑀍
#select(setcomment,ID,`)Fw肵ID̍ڂ̃Rg𑀍
#select(title,`)F^CgeLXg̑
#
#select2R}hiȈՃ^Cvj
#
#ڏ
#id=hciwł-1j
#ic=ACRtO
#col=Fiʏ̂U16i`̑At1At2At3AtuAtdw\j
#com=Rg
#en=Lԁiwł͗Li3jA0w肷ƖԉBnowresw肷ƁA݂̔ɊĐ؂ւj
#iicid=ACRtOƂƁAACRw肷ƓɁAhcACRԍɎwj
#
#Ŝ̏
#x=ʒuiwŒj
#y=ʒuiVj
#cols=񐔁ij
#rows=sij
#mincols=񐔂̍ŏ
#minrows=s̍ŏ
#mincolw=񖈂̍̕ŏidefw肷ƒʏ̕Ɠj
#commaxc=Rgg̍̕ő
#comminw=Rgg̍̕ŏ
#cid=LẐhciftHgł-1j
#cable=LZہiftHgł͔ہBLZhcw肷ƎIɉɁj


#evflagR}h
#tOԍ܂̓tOw
#Z[h
#lw
#
#tO
#*inmap:tOF}bvtO
#*btlflagFi퓬̂݁jogtO
#*evarg:tOFCxgitOevargR}hŒ`j
#*dgtypeF_W^Cv
#*selectedFI_CAOőIꂽhci퓬ʂɂgpj
#*slcmemFo[I_CAOőIꂽhc
#*btresFi퓬̂݁j퓬
#*64:tOF64rbg^iw肳ꂽϐƁA̒̕ϐ̗gpj
#*inmap64:tOFinmap64rbg^
#*reset:tOFlݒ
#*config:ݒtOFZ[upݒ̊el
#*redrawiadlgFANeBu_CAO̔\iݒŔ\ɂĂꍇ́Anmł\j
#*evarg64:ԍFCxg64bit^
#*src:FCxgtOIDŎw
#
#w
#*f[^^Cv:tOif[^^Cvevcombi.txtɑΉj@F*icon:ACRtO
#*zukanon:}ӓo^tOFnevzk1Ȃǂw
#
#tOǉɂ́Aevflag.txtɃtOiCӁjǉB
#etOɎwłl͈̔͂-2147483648`2147483647iSoCgjB
#Xevflagsw.txtɎw鎖ŁA̃tORQɕB
#w肷ƁAtOԍ𒼐ڎwi܂苐Ȓlw肷ƊȂB͂ЂƂ܂16384jB
#
#Z[hi̃R}hƋʁj
#--n--
#==F
#!=iȂj
#<
#>
#<=
#>=
#%i]F{pj
#&irbgZj
#|irbgZj
#!&i!(`&a)j
#!|i!(`|a)j
#i`&a==aj
#i`&a==`j
#--n--
#=Fw肵lB
#+=F݂̒lɎw肳ꂽlZBZɂ͕i}CiXj̒lwB
#max=Fw肳ꂽl݂̒lĂB
#min=Fw肳ꂽl݂̒lĂBlɏ݂ꍇɎgB
#%=F݂̒lw肳ꂽlŊ]V݂̒lƂB+=Ƒgݍ킹΁Alz悤ɂȂB1ȏwB
#*=F݂̒lɎw肵l|B
#*f=F݂̒lɎw肵l/100|i_؂艺BS[hpj
#*c=F݂̒lɎw肵l/100|i_؂グj
#/=F݂̒lw肵lŊi_ȉ؎̂ājB0ȊOwB
#`=F݂̒lw肵lŊi_ȉJグjB0ȊOwB
#&=F݂̒lw肵rbgӊO폜B
#|=F݂̒lɎw肵rbgǉB
#&=~F݂̒lw肵rbg폜B
#|=~F݂̒lɎw肵rbgȊOǉB
#
#EӂɎw\
#/fc(tB[hLtO,[h)FtB[hLQƁB[hxAyAmapȂǁB
#/mem(o[w,[h)
#/rand(ŏlAől)F0`l̗𔭐Q
#/enedf(GtO)FGjQ

#evflag(1,=,r10);
#evflag(2,+=,%1); evflag(2,%=,10);
#evflag(3,=,%1); evflag(3,/=,3);
#evflag(4,=,%1); evflag(4,`=,3);
#end;

#evflag(seisui,=,r100);
#evflag(booste,max=,%seisui);
#evflag(casl_in,!=,0,-1,2);
#evflag(casl_in,*=,2); end;
#label(2); evflag(casl_in,=,5);
#end;


#subeventR}hiw肵CxgqCxgƂċNB}bvCxgw肵ꍇA}bvړ͕sj
#ڂɂ͎qCxg̔ƂĈΏۂ̃xIB
#}bvCxgw肷ꍇ́ACxg̐擪@tB
#wFp
#*actorF쒆̃L
#*nullF
#*selectFfcslcőIL
#*btposF퓬ɂIΏ


#reseventR}hiw肵Cxg\CxgƂė\j
#݂ł͕ssȏꍇɎgB


#fadeR}h
#[hF@outFtF[hAEg@inFtF[hC@setFtF[hAEg̏Ԑݒ@out2FCԂ̎̂݃tF[hAEg@inQFAEgԂ̎̂݃tF[hC@resetFZbg@reverseFtF[hAEgʂŃtF[hC@isoutFAEgԂۂ@isinFCԂۂ
#iȉ1`3̏ꍇj
#^CvFfadeAzoomAmosaicAvoltex(n,m)Ablind(n,m)AcircleAholcircle
#FiqfaBzoomAmosaicł͖j
#[ifadeFősx0`255Avoltex/blindF0`256j
#EFCg
#
#voltexFn=i̒lŋt]jAm=px̃Yi12j
#blindFn=ꐔAm=ꐔ
#def͖wŃftHg̃tF[h̒lAbtdefoŃftHg̐퓬JntF[hAEg̒lAbtdefił̓tF[hC̒lgpA


#setbtfadeR}h
#퓬JñtF[hC^AEgύX


#flashR}h
#FiqfajAsx(0`255)AtbV


#rasopR}h
#[hAi[h0ȊOjFiqfaj
#[hF0.I 1.ʂɓhׂ 2.IA 3.Ah 4.F̔]
#[h4ŁAFɔw肷ƁAʂ̔]ƂȂB


#waitR}h
#҂i127B-1w肷ƃL[҂j


#shakeR}h
#[hi0.I 1.ꎞI 2.Jnj
#P܂͂Q̏ꍇFU̕iAjAȖiAj
#P̏ꍇFU
#Ȗɂ͕̒lw


#fcR}h
#xwŃCxg҂ΏہB
#xw̏ꍇAꃉx̂̑SĂɓKpiΉ̃[hLjB
#x̐擪:tƓB
#*targetFCxg̃L
#*actorF쒆L
#*slcmemFI𒆃o[ɑΉtB[hL
#*nullF
#*selectFfcslcőIL
#*nextlabelFx̎̃L
#*nextF̃L
#*allFifcwaitpjŜΏۂ
#*evfFŃxԍw
#
#apr[hiovj
#==:ꂩɊY@!=:SĂɔY
#
#dir[hij
#擪~tƑLƂ́A*tƃCxgLƂ̑ΕB
#rAlAdAuArdAldAluAruiIɂ͐lŏBr0ŁArdluj
#
#moved[hiړ̊mFj
#
#walk[hisj
#[hAxAAA
#i[h@0FΕ@1FΕj
#
#walkto[hïʒu֌ĕϊ͕sj
#[hAxAʒu
#[h@1Fs@2Fϊ@3F
#ʒu@(x,y)̌`̓tB[hLw
#
#move[hiړj
#AAXN[[h
#=FΈʒuw@+FΈʒuw@~FLƂ̑Έʒu@*FCxgLƂ̑Έʒu@rFEoʒuƂ̑Έʒu
#+~*́A^ǉƕΓIB^ǉƁAlɍiB
#XN[[hFw:XN[Aslide:XN[ɑ΂ʒuςȂi㑱LBɂKpB[vpjcenter:LSɂȂ悤ɍ킹i㑱LBƓʒuɁj
#
#mvable[hȉꏊɈړ\BẃAXN[[hȊOmoveƓj
#A
#
#x[hAy[h
#
#float[hiʒuύXj
#
#jump[hiWvj
#
#map[hi}bvړj
#/w肷ƁACxgtOEӂ̌`ɁB
#
#spd[hixύXj
#
#ans[hiAj[VxύXj
#
#ani[hiAjR}ύXj
#VXe̓sAołȂΖB
#
#anw[hiAjR}EFCgJE^[ύXj
#
#mvpat[hiړp^[ύXj
#
#authit[hiՓ˗LύXj
#
#mvrgn[hiړ\͈͕ύXj
#
#chain[hiALύXj


#fcrideR}hi蕨~j
#set/offable/check
#݂̃}bvɎw肵ʃx̃LN^[ꍇɔiĂяo͌˂ȂjB
#x*w肷ƁAĂȂԁB


#fcscrollR}hiXN[̒SL̕ύXj
#XN[̒SƂȂtB[hL̎ʃxi*offŃXN[j
#CxgIƃftHgɖ߂it[Cxg̖菔Xɂp~j


#fcactorR}hisL̕ύXBL[Lfc:mvpatŁj


#fcwaitR}hiI܂ő҂j




#X^[g
<start>
#text(0,eXg)
#subevent(kigae,);
#subevent(randomname,);
#formem(all); member(select,resetpic,31); nextmem();
#fade(fade,fade,3,000000,255);
#fc(move,0,2,=,=,0,0,2);
#solidfc(car,tB[h,23,-1,1); solidfc(ship,tB[h,29,8,0); solidfc(plane,tB[h,39,11,1);
#changemap(tB[h);
subevent(defboxcol,);
subevent(intro,);


#ftHgzF
<defboxcol>
boxcol(field,back1,ffffff,ffff00,00ff80,00ffff,ff8000,000000,128,0);


#X^[gipjiKoۂɂĂяoj
<intro>
fade(in,(type=def,wait=32));
evflagsw(ex_intro,=,1);
#music(silent,0);
#fc(jump,*actor,20); return;
#fc(*actor,walk,0,,0,1,); return;
text(1,(face=uam, swait=-1),%c880%o[*uam]%rs%rc%re%rsҒB%rĉ%re%cd%rs`%rcڂ%re%rs%rĉ%rełI\nA%rsy%rc͂%re%rs%rc݂炢%re%rs%rc%re%rso%rcς%reI);
#music(def,0); fade(in,fade,000000,255,32);
#text(1,(face=uam, swait=-1),܂%rsl%rcザ񂱂%re%rsO%rcȂ܂%re%rs%rc%re߂悤I\nO͌łłύXł邼I);
text(1,(face=uam, swait=-1),ł͑Al̖O߂悤I\nłłύXł邼I);
#\n%ct3Ԃ̖O͓KɌ܂Ă܂ARɕύXł܂B%cd
#memslc(*l); input(s%rsl%rcザ񂱂%re%rsO%rcȂ܂%re%rs%rc%re߂悤It\niŕύXj,%mem[s],0,,0); member(*l,name,=,input);
memslc(*l); member(*l,name,input,(title=s%rsl%rcザ񂱂%re%rsO%rcȂ܂%re%rs%rc%re߂悤It\niŕύXj,dfstr=%mem[s],cable=0));
#item(get,̌,1); item(get,̏,1); item(get,ړ͈,1); item(get,Eoo[,1); item(get,ʂ̉,1); item(get,ip[,1);
#evflagsw(aks,=,1);
#text(1,(face=uam, swait=-1),ŌɓՓx߂悤I); subevent(difficulty,);
#text(1,(face=uam, swait=-1),c胉Ctiuoj낤Ȃė灨̉Ƃ̒ɓ낤I@ɂ%o[*uam]}[NɏΖS邼I);

#eXg
#fade(out,def,,,32);


#[h
<load>
if(event(yj4adbl)); evflag(enzyj2,=,id(zukanon:zk2)); endif;
unif(event(yj5enable)); evflag(enzyj2,=,0); endif;

fade(in,(type=def,wait=16));
#fade(in,def,ff0000,,48);


#}bv
<mapinit>
subevent(kigae,);
#resevent(checkplaytime,);
#evflag(warpable,=,1);

#eXgpi񕜖j
#mapis(ip[{aSe); or; mapis(nCp[v[); if(nowres); evflag(usttest,=,1); else; evflag(usttest,=,0); endif;


#GJEg
<encount>
#zukan(music:all,|=,title);
#fade(btdefo,1,128,btdefo); fade(btdefo,2,128,btdefo);
#fade(btdefi,1,192,btdefi); fade(btdefi,2,192,btdefi);
#text(0,Gɏo킵I);
mc(,eneexis); if(nowres); fade(out,(type=btdefo,color=btdefo,dep=btdefo,rot=btdefo,wait=btdefo)); battle(); fade(in2,); else; text(1,,GȂ̂ɃGJEgw肳ĂI); endif;
#mc(,eneexis); if(nowres); fade(out,btdefo,btdefo,btdefo,btdefo); battle(,,, *def:def,*def:def,*def:def, , ,,); fade(in2,def,,,); else; text(1,,GȂ̂ɃGJEgw肳ĂI); endif;
#text(0,퓬II);


#퓬
<won>
#fade(in,fade,000000,255,32);
#text(1,face=uam,);


#퓬sk
<lost>
#evflagsw(exigmov,==,1); if(nowres); gameover; else; subevent(return,); endif;
if(evf(*sw:exigmov)==1); gameover; else; subevent(return,); endif;
#text(1,face=uam,nI@SłĂ܂Ƃ͕sbȂI);
#text(1,face=uam,sk); subevent(recover,);


#퓬
<escaped>
#text(1,face=uam,`); text(1,face=uam,a);
#return; text(1,face=uam,o);


#}bvSŎi݁j
<flst>
music(main,+=,lose:0);
text(1,,SłĂ܂EEEB); fade(out,(type=fade,color=000000,wait=32)); subevent(lost,);


#ftHg퓬JnCxg
<defbtst>
#text(0,eXgF퓬JnCxg);
#subevent(allism,); if(nowres); evflagsw(checkallm,=,1); else; evflagsw(checkallm,=,0); endif;
#evflagsw(checkallm,=,1);
#evflagsw(pfnext,=,0);
#evflagsw(moonbari,=,1);
#text(0,%evb[*dgtype] %evb[*btmode] %evb[*control]);
#evflagsw(dspenemsg,==,1); if(nowres); evcombi(ex_enemy,*clear); endif;
if(evf(*sw:dspenemsg)!=0); evcombi(ex_enemy,*clear); evflagsw(ex_banzai,=,0); endif;

#formem(party);
#member(select,pcond, cond,s,>,0); if(nowres); member(select,pcond, cond,s,+=,-inf); member(select,pcond, kdg,+=,99999999); endif;
#nextmem();

#
bcslc(,al2); while; if(nowres);
bc(*select,,pcond, cond,s,>,0); if(nowres); bc(*select,,pcond, cond,s,+=,-inf); bc(*select,,pcond, kdg,+=,99999999); endif;
bcslc(next,al2); next; endif; wend;

evtext(subtx1,=,*);
#btfstevs;
bcslc(>,exi); while; if(nowres);
#bc(*select,,enekind,>=,*fstene); and; zukan(enemy:*slcbcheneid,==,0); if(nowres);
bc(*select,,enekind:src,==,ene); and; zukan(enemy:*slcbcheneid,==,0); if(nowres);
evtext(subtx1,*=,*);
bc(*select,,subnames,class,==,*A[Nip[); if(nowres); bc(*select,,subnames,class,print); evtext(subtx1,+=,def); evtext(subtx1,+=,*F); endif;
bc(*select,,subnames,subname,print); evtext(subtx1,+=,def); evtext(subtx1,+=,*w); bc(*select,,name,print); evtext(subtx1,+=,def); evtext(subtx1,+=,*xꂽI);
zukan(enemy:*slcbcheneid,=,1);
endif;
#bc(*select,,enekind,>=,napul); and; bc(*select,,enekind,<=,mutou); if(nowres); zukan(enemy:naper,=,1); endif;
#bc(*select,,enekind,>=,yj-a1); and; bc(*select,,enekind,<=,yj-a4); if(nowres); zukan(enemy:yj,=,1); endif;
bcslc(next,exi); next; endif; wend;

btfstevs;
#Jn[Vs
return;

evtext(subtx1,!=,*); if(nowres);
evflagsw(ex_fstenc,==,0); if(nowres); evflagsw(ex_fstenc,=,1); evtext(subtx1,*=,*ieXgIɁA߂ďoGɑ΂Ă͂́u`ꂽv\܂j\rAGɂȂ܂BIႲoė܂Aw%ct2%sk[*ʏU].nmic%cdxw%ct2%sysm[*slcskill].nmic%cdxw%ct2%sysm[*slcitem].nmic%cdxw%ct2%sk[*].nmic%cdxoĂ΂njłB); endif;
text(1,,%str[*subtx1]);
endif;


#bc(>,exi,pcond, kdg,<,0); if(nowres); text(3,50,搧̃``XI); endif;
#bc(<,exi,pcond, kdg,<,0); if(nowres); text(3,50,sӂ˂ꂽI); endif;

bc(>,exi,pcond, kdg,<,0); if(nowres); bttopdsp(搧̃``XI,,exclamation); endif;
bc(<,exi,pcond, kdg,<,0); if(nowres); bttopdsp(sӂ˂ꂽI,,exclamation); endif;


#ftHg퓬ICxg
<defbted>

btwaitdown;

#
if(evf(*btres)==1);
#btwaitdown;

evtext(subtx1,=,*);

#F{[iX
bc(>*ikenai2,,exis); and; bc(>*ikenai2,,pcond, cond,,!=,0); and; evflagsw(moonbari,==,1); if(nowres);
#evflagsw(pr_bnmoon2,==,0); if(nowres);
evflagsw(pr_bnmoon2,=,1);
text(1,swait=-1,w%cond[*]%cond[*]񔭓%ene[*ikenai2].sn[*ryakumei]jxBI);
#text(1,swait=-1,we̊O탂[h񔭓ŊFH[hjxBI);
#endif;
#evflagsw(pr_bnmoon2,==,0); if(nowres); evflagsw(pr_bnmoon2,=,1); text(1,,e̊O탂[h񔭓ŊFH[hjI); endif;
#bcslc(,); bc(pcond, cond,,!=,0); if(nowres);
#btwaitdown;
evflag(instant1,=,0);
#bcslc(>,); if(nowres); bc(*select,,dropit,+=,(e̊O(100),e̊O(100),e̊O(100))); endif;
bcslc(>,); while; if(nowres); bc(*select,,enekind,==,ikenai2); if(nowres); evflag(instant1,+=,1); endif; bcslc(>next,); next; endif; wend;
evflag(instant1,>,0); if(nowres); sound(select); getdlg(mTQbgIn,all,0,0,0, 0,e̊O(3),evf(instant1)); text(4,,%str[*def]); endif;
#evflagsw(pr_bnmoon2,==,0); if(nowres); evflagsw(pr_bnmoon2,=,1); text(1,,e̊O탂[h񔭓ŊFH[hjLOwe̊Ox肵I{I}PŋՓ˂o悤ɂȂI); endif;
#text(1,,̈ӂɂĂ܂F́ӂ̃gbvGAŁAQڈȍ~A_Ōe̊OłACeɓ܂B܂Aom[pƂȂmFn̂݁Ä܂͐𑕔ԂŒނƁAɗLȏԂɂȂ܂B); 
#item(get,e̊O,3); if(nowres); return; text(1,,e̊OjTwe̊OxR肵I); endif;
endif;

#`S{[iX
#bc(>*yj-a4,,exis); and; subevent(allism,); and; evflagsw(checkallm,==,1); if(nowres);
bc(>*yj-a4,,exis); or; bc(>*yj-a5,,exis); and; subevent(allism,); and; evflagsw(checkallm,==,1); if(nowres);
#bc(>*yj-a4,,exis); and; subevent(allism,); and; evflagsw(checkallm,==,1); if(nowres);
#bc(>*yj-a4,,exis); and; not; bc(>,alv,exis); if(nowres);
#btwaitdown;
#return; bc(*self,,pcond,vp,=,1); bc(*self,,waitdown);
#text(0,Xg);
#evflag(*nobattle,=,1);
#bcslc(>,); while; if(nowres); bc(*select,,enekind,==,yj-a4); if(nowres); bc(*select,,dropit,+=,(100)); endif; bcslc(>next,); next; endif; wend;
#evflagsw(pr_bnyj-a4,==,0); if(nowres);
bc(>*yj-a4,,exis); if(nowres);
evflagsw(pr_bnyj-a4,=,1); subevent(enzyj2_on,);
if(event(yj5enable)); text(1,swait=-1,wnł̂SjxBI\nɂȀꏊŌGPޑ悤ɂȂIiȂI}Pj);
#w%it[*ip[].nmicxсw%it[*album].nmicx炱̃Cxg̉摜{ł悤ɂȂI\n
#ɂȀꏊŌGPޑ悤ɂȂIiȂI}Pj
else; text(1,swait=-1,wnł̂SjxBI\nw%it[*ip[].nmicxсw%it[*album].nmicx炱̃Cxg̉摜{ł悤ɂȂI\nōłACeIiɈӖȂj);
#\nw%it[*G].nmicxw%dtp[*picture].nmicx{ł悤ɂȂI
endif;
endif;
#\nw%it[*mchecker].nmicx̑Is̕ւꂽI
#endif;
evflag(instant1,=,0);
bcslc(>,); while; if(nowres);
bc(*select,,enekind,==,yj-a4); if(nowres); evflag(instant1,+=,1); endif;
bc(*select,,enekind,==,yj-a5); if(nowres); evflag(instant1,+=,3); endif;
bcslc(>next,); next; endif; wend;
evflag(instant1,>,0); if(nowres); sound(select); getdlg(mTQbgIn,all,0,0,0, 0,u[X^[(2),evf(instant1)); text(4,,%str[*def]); endif;
#evflag(*nobattle,=,0);
#evflagsw(enc_yj-a4_2,=,1); item(get,u[X^[,1); if(nowres); text(1,,nŏڍוs(̂S)jLOwu[X^[xI); endif; end;
#evflagsw(checkallm,=,0);
endif;
#bc(action,ҋ@,ac5,a); return; 
#label(1);
#else; text(0,񃉃Xg);
#endif;

#|[Yafl
bcslc(<,alv); while; if(nowres); bc(*select,alv,startan,win,-1); bcslc(<next,alv); next; endif; wend;
#bcslc(<,alv); while; if(nowres); bc(*select,alv,endan); bcslc(<next,alv); next; endif; wend;
bcslc(>,); unif(nowres); evtext(subtx1,=,*GoƎvAĈI);
else;
evtext(subtx2,=,*%btengname);
evtext(subtx2,!=,*);
if(nowres);
music(main,+=,*win:win);
evtext(subtx1,=,*%ct2%pty[e].ormem%cd%ct2%btengname%cdƂ̐퓬ɏI);
else; evtext(subtx1,=,*G͋ȂȂI);
endif;
endif;
endif;

#sk
if(evf(*btres)==2);
#bcslc(>,alv); while; if(nowres); bc(*select,alv,startan,win,-1); bcslc(>next,alv); next; endif; wend;
music(main,+=,*lose:lose);
evtext(subtx1,=,*skiĂ܂cc);
#%[m]͔skĂ܂cc,
#%o[*lost]Słcc,
#%[m]͑Słcc,
endif;

if(evf(*btres)==3);
evtext(subtx1,=,*тI);
#%[m]%[s]Ƃ̐퓬瓦тI,
#PނɐI,
#oI,
endif;

#ZI
if(evf(*btres)==4);
#btwaitdown;
bcslc(,al2); and; not; bcslc(next,al2);
if(nowres); bcslc(,al2); bc(*select,al2,bchind,); evflag(tougi_res,=,evf(nowval));
evtext(subtx1,=,*%ct2%bch[s]%cdcI);
else;
bcslc(,al2); if(nowres); evtext(subtx1,=,*퓬𒆒fB); else; evtext(subtx1,=,*I); endif;
evflag(tougi_res,=,-1);
endif;
#text(0,%ev[*tougi_res]);
endif;

#ol^
btres(%str[*subtx1],);
text(4,,%str[*def]);
#text(1,(swait=-1,cwait=0,mxh=16,mnh=1,w=0,xm=c,ym=c,dsp=3,lnmargin=4),%str[*def]);

fade(out,(type=fade,color=000000,wait=16));
btover(def);

#gameover;


#蕨ɏ
<rideon>
evflagsw(pr_vehicle,=,1);
#text(0,);
#evflagsw(rideable,==,0); if(nowres); text(0,ł́^͏ȂI); end; endif;
if(evf(*sw:rideable)==0); text(0,ł́^͏ȂI); end; endif;
#if(evf(*inmapsw:rideable)==0); text(0,ł́^͏ȂI); end; endif;
#fcride(set,); sound(select);
fc(*actor,ride,set,*target:1); fc(*target,apr,=,0); sound(select);
fc(*target,label,==,car_st); and; evflagsw(pr_car,==,0); if(nowres); evflagsw(pr_car,=,1); end; endif;
fc(*target,label,==,ship_st); and; evflagsw(pr_ship,==,0); if(nowres); evflagsw(pr_ship,=,1); text(1,(face=uam, swait=-1),{̓dbA{̋߂ɂDĂяo悤ɂȂI\nSłۂɂAD{̋߂ɗ悤ɂȂ܂B); end; endif;


#s@ɏ
<rideonpl>
#evflagsw(pr_plane,==,0); if(nowres);
if(evf(*sw:pr_plane)==0);
text(1,(face=uam, swait=-1),CKv̂悤BCɂ2̃ACeKv̂悤B\n%ct3ړ̎ԂȂ邾ŁAUɕK{Ƃ킯ł͂܂B%cd);
#\n%ct3ړ̎ԂȂ邾ŁAĒKv͂܂B%cd
item(check:eq,toolset,1); and; item(check:eq,񕜂̏,1);
if(nowres); evflagsw(pr_plane,=,1); text(1,(face=uam, swait=-1),w%it[*toolset].nmicxƁw%it[*񕜂̏].nmicx𗘗pAs@CI); else; end; endif;
endif;

subevent(rideon,);
#evflagsw(rideable,==,1); if(nowres);
if(evf(*sw:rideable)==1);
while; fc(*actor,float,<,160); if(nowres); fc(*actor,float,+=,16); fc(*actor,float,>,160); if(nowres); fc(*actor,float,=,160); endif; return; next; endif; wend;
endif;


#蕨~
<rideoff>
#text(0,~);
#fc(apr,*actor,=,0);
fc(*actor,ride,offable,*actor:ride:-1); unif(nowres); text(0,ł͍~ȂI);
#not; fc(mvable,:-1,~0,~0); if(nowres); text(0,ł͍~ȂI);
else;
subevent(forced_rideoff,*actor); sound(return);
endif;
#fc(apr,*actor,=,1);
end;

#fcride(offable); if(nowres); fcride(set,*); sound(return); else; text(0,ł͍~ȂI); endif;

#fc(mvable,*actor,^0,^0); if(nowres);

#else; fc(mvable,*actor,^1,^0); if(nowres); fcride(set,*); sound(return);
#fc(walk,*actor,1,8,1,0,0); return;
#else; text(0,ł͍~ȂIQ);
#endif;
#endif;


#s@~
<rideoffpl>
fc(*actor,ride,offable,*actor:ride:-1); unif(nowres); text(0,ł͍~ȂI);
else;
while; fc(*actor,float,>,mc(,height)); if(nowres); fc(*actor,float,-=,16); fc(*actor,float,<,mc(,height)); if(nowres); fc(*actor,float,=,mc(,height)); endif; return; next; endif; wend;
fc(*actor:ride:-1,float,=,mc(,height));
subevent(forced_rideoff,*actor); sound(return);
endif;
end;

#fcride(offable); if(nowres);
#fc(float,*actor,12); fc(float,*actor,8); return; fc(float,*actor,4); return; fc(float,*actor,0); return;
#fcride(set,*); sound(return);
#else;  text(0,ł͍~ȂI);
#endif;


#蕨狭Iɍ~
<forced_rideoff>
fc(*target:ride:-1,move,*0,*0,); fc(*target:ride:-1,dir,=,*r); fc(*target:ride:-1,map,=,*this); fc(*target:ride:-1,apr,=,1);
fc(*target,ride,set,*null);


#eL[ꑀ실
<key_func>
evarg(actid);
if(evf(*evarg:actid)==0); subevent(inchead,); end; endif;
if(evf(*evarg:actid)==1); subevent(save,); end; endif;
#if(evf(*evarg:actid)==2); if(nowres); subevent(subsettings,); end; endif;
if(evf(*evarg:actid)==2); subevent(config,); end; endif;
if(evf(*evarg:actid)==3); subevent(walkmode,); end; endif;
if(evf(*evarg:actid)==4); subevent(walkspeed,); end; endif;
if(evf(*evarg:actid)==5); subevent(naperzukan,); end; endif;
if(evf(*evarg:actid)==6); subevent(zattamemo,); end; endif;
if(evf(*evarg:actid)==7); subevent(jukebox,); end; endif;
if(evf(*evarg:actid)==8); subevent(henge,); end; endif;
#setfunckey_subAsetfunckey_sub2


#L[ɉANV𔭓
<key_func2>
evarg(keyid);
subevent(key_func(evf(*src:evf(*evarg:keyid))),);


#̃Cxg
<blank>


#񕜁iGtFNgeLXgtj
<recover>
#fc(spd,0,8); fc(ans,0,8);
feffect(recover,,*actor,*actor,1); return;
subevent(recover2,);
#waiteffect;
text(0,SI);
#evflag(instant2,=,0);

#retpos(set,,0,0);
fc(*actor,jump,=,320);
#return; text(0,eXg);


#񕜁iGtFNgEeLXgj
<recover2>
formem(party); member(select, recover,0, (vp:max,ep:max),(n(-inf),(-inf),(-inf),(-inf))); nextmem();


#񕜁EăX^[gn_ɖ߂iQ[I[o[pj
<return>
#mapis(ip[{an); if(nowres); item(lost:2,fbLuV,99); endif;
subevent(forced_rideoff,*actor);
#fc(*actor,reset); changemap(tB[h);
fc(*actor,apr,=,1); fc(*actor,move,-9,1,center); fc(*actor,dir,=,d); fc(*actor,float,=,0); changemap(K);
#image(0,set,); image(1,set,); image(2,set,); 
#fc(party2,chain,party1);
image(reset); mfade(0,000000,0); mfade(1,000000,0); retpos(set,tB[h,0,0);
#fc(car_st,reset); fc(car_mv,reset); fc(ship_st,reset); fc(ship_mv,reset); fc(plane_st,reset); fc(plane_mv,reset);
party(,count,==,0); if(nowres); enparty(=,main); party(,count,==,0); if(nowres); party(,on,hard,l); endif; endif;
subevent(recover2,); party(,gold,*f=,50); fade(in,(type=fade,color=000000,wait=32));

#item(check:aleq|alpt|bank,ړ͈,1); unif(nowres); item(get,ړ͈,1); endif;
#subevent(getsysitems,);
item(check:aleq|alpt|bank,ip[,1); unif(nowres); item(get,ip[,1); endif;
item(check:aleq|alpt|bank,G,1); unif(nowres); item(get,G,1); endif;
#item(check:aleq|alpt|bank,jukebox,1); unif(nowres); item(get,jukebox,1); endif;
#evflag(dspbtrate,|=,0b1110000000);
evflagsw(dspefccond,=,1); evflagsw(dspefcelem,=,1); evflagsw(dspbsef,=,1);
evflagsw(debug_full,==,0); and; fc(*actor,mvrgn,!&,d); if(nowres); fc(*actor,mvrgn,|=,d); endif;
evflagsw(pr_ship,==,1); and; evflagsw(pr_honpen,==,0); if(nowres); subevent(callship2,); endif;
#fc(*actor,blrgn,=,|d);


#<getsysitems>
#item(check,Eoo[,1); unif(nowres); item(get,Eoo[,1); endif;
#item(check,ʂ̉,1); unif(nowres); item(get,ʂ̉,1); endif;
#item(check,\ݒ,1); unif(nowres); item(get,\ݒ,1); endif;


#Eoo[
<manuret>
evflag(*selected,=,1);
select2(+s(id=0));
select2(+~(id=1)); select2(/);
select2(*mEoHn(cid=,swait=-1));
#evflag(*selected,=,1); select(*mEoHn(cid=,list=s\n~,swait=-1));
#evflag(nowval,=,evf(*selected)); text(0,test %ev[*nowval]);
if(evf(*selected)==0);
sound(drop); fade(out,(type=fade,color=000000,wait=32));
subevent(return,);
fc(car_st,reset); fc(car_mv,reset); fc(ship_st,reset); fc(ship_mv,reset); fc(plane_st,reset); fc(plane_mv,reset);
end;
endif;


#^CgXV
<update_title>
select(adddtp,-sysm,new,);
select(adddtp,-sysm,load,);
select(adddtp,-sysm,delsv,);
select(adddtp,-sysm,sortsv,);
select(adddtp,-sysm,config,);
select(adddtp,-sysm,manual,);
select(adddtp,-sysm,endgame,);


#VXej[Cxgi^CgALvA퓬Iŋpj
<done_title>
if(evf(*selected)==id(-sysm:profile)); party(,stcd); end; endif;
if(evf(*selected)==id(-sysm:slcitem)); item(use); end; endif;
if(evf(*selected)==id(-sysm:save)); savebox; end; endif;
if(evf(*selected)==id(-sysm:config)); subevent(config,); end; endif;
if(evf(*selected)==id(-sysm:manual)); text(2,(swait=-1,ym=c,h=0),%ct3s{L[t\ni̓eL[̂̂łj%cd\n%ct3^U%cd@F@E\n%ct3^S%cd@F@\n%ct3^Q%cd@F@\n%ct3^W%cd@F@\n%ct3^[^y^Xy[X%cd@F@Ab|A~\n%ct3O([)^w^obNXy[X%cd@F@LZAj[\n%ct3T^b%cd@F@bZ[WXLbvA⏕\n\n%ct3sVXeL[t%cd\n%ct3drb%cd@F@Q[̏I\n%ct3eX^ePQ%cd@F@^Cgɖ߂\n%ct3eR%cd@F@|[Y^|[Y\n%ct3eS%cd@F@ʂ̃Rs[\n%ct3eU%cd@F@EChETCY؂ւ\n%ct3eV%cd@F@ʉ^\n%ct3eW%cd@F@afl^); end; endif;
#A߂\n%ct3T^b%cd@F@(ړ)\L̐؂ւAbZ[WXLbvA\niACeʂȂǁjڍו\̂nm^nee\n%ct3R^r%cd@F@ڍו\̃y[W\n%ct3P^`%cd@F@ڍו\̃y[WO
evflag(*selected,==,id(-sysm:rettitle)); if(nowres); subevent(rettitle,); end; endif;


#L[Lv_CAOJ
<camp>
#resevent(box_item(id(item:chyaku)),); resevent(box_item(-1,1000),); resevent(box_item(id(item:u[X^[)),); resevent(box_item(-1,2000),);
evflagsw(menuable1,==,0); or; evflagsw(menuable2,==,0); if(nowres); text(0,j[֎~ĂB); end; endif;
sound(select);
campbox;
subevent(kigae,);
#text(1,face=uam,j[B);


#ړCj[XV
<update_camp>
select(adddtp,-sysm,profile,);
select(adddtp,-sysm,slcitem,);
select(adddtp,-sysm,cngeq,);
select(adddtp,-sysm,slcskill,);
select(adddtp,-sysm,form,);
select(adddtp,-sysm,slcld,);
select(adddtp,-sysm,slcgdpos,);
#select(adddtp,-sysm,(profile,slcitem,cngeq,slcskill,form,slcld,slcgdpos),);
select(adddtp,skill,ʂ̉,);
select(adddtp,-sysm,config,);
select(adddtp,-sysm,save,); evflag(*saveable,!=,0); select(setenable,,nowres);
select(adddtp,-sysm,rettitle,);
select(adddtp,-sysm,manual,);
select(adddtp,skill,ً}Eo,);


#퓬Cj[XV
<update_btlbaseslc>
select(title,=,*m%bch[e]n);
bc(*self,,cdtp2,&,nds); unif(nowres);
bc(*self,,pcond,vp,); select(title,+=,*\n\{%cdp[*vp] %ev[*nowval]\});
bc(*self,,pcond,ep,); select(title,+=,*\n\{%cdp[*ep] %ev[*nowval]\});
endif;

#select(adddtp,-sysm,slcprvsk,);
select(adddtp,skill,**prvsk,);
select(adddtp,-sysm,slcskill,);
select(adddtp,-sysm,slcitem,);
select(adddtp,-sysm,cngeq,);
select(adddtp,-sysm,checkcd,);
select(adddtp,-sysm,form,);
select(adddtp,-sysm,slcgdpos,);
select(adddtp,-sysm,autbtl,);
select(adddtp,-sysm,surrender,); if(evf(*sw:bt_nosurren)==1); select(setenable,,slcable); endif;
bc(*self,,skill,checkall,h); if(nowres); select(adddtp,skill,h,); endif;
bc(*self,,skill,checkall,JE^[); if(nowres); select(adddtp,skill,JE^[,); endif;
bc(*self,,skill,checkall,CJE^[); if(nowres); select(adddtp,skill,CJE^[,); endif;
bc(*self,,skill,checkall,ˑԐ); if(nowres); select(adddtp,skill,ˑԐ,); endif;
select(adddtp,-sysm,wait,);
select(adddtp,-sysm,config,);
bc(*self,,skill,checkall,); if(nowres); select(adddtp,skill,,); endif;
bc(*self,,skill,checkall,gps); if(nowres); select(adddtp,skill,gps,); endif;
bc(*self,,skill,checkall,gp҃eXg); if(nowres); select(adddtp,skill,gp҃eXg,); endif;


#擪؂ւ
<inchead>
#music(main,=,*def:0);
evflagsw(chghead1,==,0); or; evflagsw(chghead2,==,0); if(nowres); text(0,擪؂ւ֎~ĂB); end; endif;
sound(select);
party(,headinc);
#fcactor(c1); fc(mvpat,*actor,key,0);
fc(*actor,ride,check,*null); if(nowres);
fc(*actor,g,=,32); fc(*actor,jump,=,320); return; fcwait(*actor); fc(*actor,g,=,16);
endif;

#evflag(instant1,=,/rand(2,5));
#evflag(instant2,=,/rand(100,200));
#text(0,%ev[*instant1]\n%ev[*instant2]);

#evflag(instant1,=,fc(*actor,x));
#evflag(instant2,=,fc(*actor,y));
#text(0,%ev[*instant1]@%ev[*instant2]);

#evflag(instant1,=,evf(instant1)+5);
#evflag(instant2,=,evf(instant2)+4);
#text(0,%ev[*instant1]@%ev[*instant2]);

#mem(head);
#text(0,%mem[h]F%mem[h]nFol%mem[h]e);
#member(status,mep,org,); text(0,%mem[h]Fődoiǉj%ev[1]);
#member(status,mep,naked,); text(0,%mem[h]Fődoi񑕔j%ev[1]);
#member(status,mep,all,); text(0,%mem[h]Fődoivj%ev[1]);

#gold(+=,%nowval);


#L[Z[u_CAOJ
<save>
#music(main,=,*def:-7200);
#evflagsw(saveable1,==,0); or; evflagsw(saveable2,==,0); if(nowres); text(0,Z[u֎~ĂB); end; endif;
#saveable;
if(evf(*saveable)==0); text(0,Z[ułȂ󋵂ɂB); end; endif;
sound(select);
savebox;

#saveboxR}h
#saveable0̏Ԃ̏ꍇJBZ[u|Cg肷ꍇpi䂦AsaveableZ[ueɊ܂܂Ă܂jB


<nousingkey>
text(0,̃L[͎gĂȂB);


#itemR}h
#getFBACetňłȂꍇ͋UAłłΐ^B͈͎w͖B
#lostFBꍇ͋UAłĂΐ^B
#checkFLꍇɂ͐^AȊO͋UB
#printFݒlɌB͂ȂBw͖B
#changeFiĂꍇ͑܂܌jBꍇ͋UAłĂΐ^B
#clearF莝ACeɂB
#resetF莝ACeԂɖ߂B
#clearbkFa菊̃ACeɂB
#sellF
#useFg
#slcFIi*selectedɌʂj
#slc2FIii܂ށj
#slc3FIisݎ҂̑i܂ށj
#bankputFɗaioւ̈ڍsj
#bankputonlyFɗaioւ̈ڍssj
#bankgetFɈoiaւ̈ڍsj
#bankgetonlyFɈoiaւ̈ڍssj
#bankwatchFɉ{
#
#͈͎wi|ŌBwȂ̏ꍇ̓obÔ݂Ώۂɂj
#eqilost:eqAcheck:eqȂǁjFp[eB̑ΏۂɁB
#aleqFSo[̑ΏۂɁB
#bankFa菊ΏۂɁB
#alptFp[eBΏۂɁB


<kigae>
#formem(party); subevent(kigae_sub,); nextmem();
formem(all); subevent(kigae_sub,); nextmem();


<kigae_sub>
evflag(kigae1,=,evf(*dgtype));
evflagsw(usebig,==,1); if(nowres); evflag(kigae2,=,1); else; evflag(kigae2,=,0); endif; 
member(select, resetpic,29);

#member(select, pcond, cond,ωp,==,0); if(nowres); member(select, resetpic,29); else; member(select, resetpic,12); endif;
#member(select, fldpic,nrm,==,mame); if(nowres); member(select, btlpic,,=,(nrm=mame,snf=mame-snf,kch=mame-kch,act0=mame-act0,dmg=mame-dmg,rcv=mame-rcv,atk1=mame-atk,rad1=mame-rad),); endif;
#member(select, picset,fch,org,nrm,==,mame); if(nowres); member(select, picset,bch,org,=,(nrm=mame,snf=mame-snf,kch=mame-kch,act0=mame-act0,dmg=mame-dmg,rcv=mame-rcv,atk1=mame-atk,rad1=mame-rad),); endif;


#^Cgɖ߂I
<rettitle>
select2(reset,pos);
select2(+[(id=0));
select2(+悤(id=1));
select2(/);
#[\n悤,
#IႤ́H,͂\n,
#ÎˁH,邢\n͂܂,
select2(*I\ncႤ́H(cid=,swait=-1));

if(evf(*selected)==0); fade(out,(type=fade,color=000000,wait=16)); gameover; endif;


#RtBO
<config>
select(*m%sysm[*config].nmicn(cid=,rows=12,swait=-1,udev=update_config,dnev=done_config));


#RtBOpiڍXVj
<update_config>
select(adddtp,sysm,cnf_sound,); select(setfootcol,,t3); if(evf(*config:soundmute)==0); select(setfoot,,=,*); else; select(setfoot,,=,*); endif;
select(adddtp,sysm,cnf_sndvol,); select(setfootcol,,t3); if(evf(*config:soundvol)==0); select(setfoot,,=,*ő); else; evflag(*config:soundvol,); select(setfoot,,=,*%ev[*nowval]); endif;
select(adddtp,sysm,cnf_sndrev,); select(setfootcol,,t3); if(evf(*config:soundrev)==0); select(setfoot,,=,*); elif(evf(*config:soundrev)==1); select(setfoot,,=,*); elif(evf(*config:soundrev)==2); select(setfoot,,=,*); else; select(setfoot,,=,*); endif;
select(adddtp,sysm,cnf_music,); select(setfootcol,,t3); if(evf(*config:musicmute)==0); select(setfoot,,=,*); else; select(setfoot,,=,*); endif;
select(adddtp,sysm,cnf_mscvol,); select(setfootcol,,t3); if(evf(*config:musicvol)==0); select(setfoot,,=,*ő); else; evflag(*config:musicvol,); select(setfoot,,=,*%ev[*nowval]); endif;
select(adddtp,sysm,cnf_mscrev,); select(setfootcol,,t3); if(evf(*config:musicrev)==0); select(setfoot,,=,*); elif(evf(*config:musicrev)==1); select(setfoot,,=,*); elif(evf(*config:musicrev)==2); select(setfoot,,=,*); else; select(setfoot,,=,*); endif;
select(adddtp,sysm,cnf_autmute,); select(setfootcol,,t3); if(evf(*config:automute)!=0); select(setfoot,,=,*); else; select(setfoot,,=,*); endif;
select(adddtp,sysm,cnf_autpause,); select(setfootcol,,t3); if(evf(*config:autopause)!=0); select(setfoot,,=,*); else; select(setfoot,,=,*); endif;
select(adddtp,sysm,cnf_redraw,); select(setfootcol,,t3); if(evf(*config:redrawparent)!=0); select(setfoot,,=,*); else; select(setfoot,,=,*); endif;
select(adddtp,sysm,cnf_usesleep,); select(setfootcol,,t3); if(evf(*config:usesleep)!=0); select(setfoot,,=,*); else; select(setfoot,,=,*); endif;
select(adddtp,sysm,cnf_scshomode,); select(setfootcol,,t3); if(evf(*config:scshomode)!=0); select(setfoot,,=,*Lk); else; select(setfoot,,=,*LkO); endif;
#select(adddtp,sysm,cnf_glmode,); select(setfootcol,,t3); if(evf(*config:loadbmpmode)==0); select(setfoot,,=,*\tgˑ); else; select(setfoot,,=,*`ohˑ); endif;
select(adddtp,sysm,cnf_drewtime,); select(setfootcol,,t3); if(evf(*config:dspdrewtime)!=0); select(setfoot,,=,*); else; select(setfoot,,=,*); endif;
select(adddtp,sysm,cnf_default,);
select(adddtp,sysm,cnf_defwnd,); select(setfootcol,,t3); evflag(*config:winmode,!=,0); select(setenable,,nowres);
select(adddtp,sysm,cnf_winmode,); select(setfootcol,,t3); if(evf(*config:winmode)==0); select(setfoot,,=,*tXN[); else; select(setfoot,,=,*EChE); endif;

select(adddtp,sysm,setwalkrgn,); select(setfootcol,,t3); select(setevent,,walkmode); not; evflag(*phase,==,id(phase:no)); select(setenable,,nowres);
#select(+s͈͂̐ݒ(id=0,ic=walk,com=s\Ȓn`ɐ܂B));
#c܂̓eL[Vł쓮B
select(adddtp,sysm,setwalkspd,); select(setfootcol,,t3); select(setevent,,walkspeed); not; evflag(*phase,==,id(phase:no)); select(setenable,,nowres);
unif(evf(*phase)==id(phase:no)); select(setfootcol,,t3); if(evf(*sw:pr_dsphitr)==1 || evf(*sw:pr_dspcdr)==1 || evf(*sw:pr_dspcrtr)==1); select(adddtp,sysm,btlnavi,); select(setevent,,setdspbtr); endif; endif;
select(adddtp,sysm,setsckey,); select(setfootcol,,t3); select(setevent,,setfunckey); not; evflag(*phase,==,id(phase:no)); select(setenable,,nowres);
select(adddtp,sysm,setautbtl,); select(setfootcol,,t3); not; evflag(*phase,==,id(phase:no)); select(setenable,,nowres); unif(evf(*phase)==id(phase:no)); if(evf(*sw:autobtl)==0); select(setfoot,,=,*); else; select(setfoot,,=,*); endif; endif;
select(adddtp,sysm,memautbtl,); select(setfootcol,,t3); not; evflag(*phase,==,id(phase:no)); select(setenable,,nowres); select(setevent,,autbtlmem); not; evflag(*phase,==,id(phase:no)); select(setenable,,nowres);
select(adddtp,sysm,savebtbcur,); select(setfootcol,,t3); not; evflag(*phase,==,id(phase:no)); select(setenable,,nowres); unif(evf(*phase)==id(phase:no)); if(evf(*sw:savebtbcur)==0); select(setfoot,,=,*); else; select(setfoot,,=,*); endif; endif;
unif(evf(*phase)==id(phase:no)); if(evf(*sw:pr_vehicle)==1); select(adddtp,sysm,autride,); select(setfootcol,,t3); if(evf(*sw:autrideoff)==0); select(setfoot,,=,*); else; select(setfoot,,=,*); endif; endif; endif;
select(adddtp,sysm,nescapemsg,); select(setfootcol,,t3); not; evflag(*phase,==,id(phase:no)); select(setenable,,nowres); unif(evf(*phase)==id(phase:no)); if(evf(*sw:nescapemsg)==0); select(setfoot,,=,*); else; select(setfoot,,=,*); endif; endif;
select(adddtp,sysm,nomotion,); select(setfootcol,,t3); not; evflag(*phase,==,id(phase:no)); select(setenable,,nowres); unif(evf(*phase)==id(phase:no)); if(evf(*sw:nomotion)==1); select(setfoot,,=,*); else; select(setfoot,,=,*); endif; endif;
select(adddtp,sysm,bchcenter,); select(setfootcol,,t3); not; evflag(*phase,==,id(phase:no)); select(setenable,,nowres); unif(evf(*phase)==id(phase:no)); if(evf(*sw:bchcenter)==1); select(setfoot,,=,*); else; select(setfoot,,=,*); endif; endif;
select(adddtp,sysm,dsplvupst,); select(setfootcol,,t3); not; evflag(*phase,==,id(phase:no)); select(setenable,,nowres); unif(evf(*phase)==id(phase:no)); if(evf(*sw:dsplvupst)==1); select(setfoot,,=,*); else; select(setfoot,,=,*); endif; endif;
select(adddtp,sysm,kugiriketa,); select(setfootcol,,t3); not; evflag(*phase,==,id(phase:no)); select(setenable,,nowres); unif(evf(*phase)==id(phase:no)); if(evf(kugiriketa)==0); select(setfoot,,=,*Ȃ); else; select(setfoot,,=,*%ev[*kugiriketa].w); endif; endif;
select(adddtp,sysm,dspeneicon,); select(setfootcol,,t3); not; evflag(*phase,==,id(phase:no)); select(setenable,,nowres); unif(evf(*phase)==id(phase:no)); if(evf(*sw:dspeneicon)==1); select(setfoot,,=,*); else; select(setfoot,,=,*); endif; endif;
select(adddtp,sysm,usebigbtp,); select(setfootcol,,t3); not; evflag(*phase,==,id(phase:no)); select(setenable,,nowres); unif(evf(*phase)==id(phase:no)); if(evf(*sw:usebig)==1); select(setfoot,,=,*); else; select(setfoot,,=,*); endif; endif;
unif(evf(*phase)==id(phase:no)); evcombi(ex_enemy,!=,enemy,); if(nowres); select(adddtp,sysm,dspenemsg,); select(setfootcol,,t3); if(evf(*sw:dspenemsg)==1); select(setfoot,,=,*); else; select(setfoot,,=,*); endif; endif; endif;
unif(evf(*phase)==id(phase:no)); if(evf(*sw:pr_honpen)==1); select(adddtp,sysm,dspending,); select(setfootcol,,t3); if(evf(*sw:ct_cuted)==1); select(setfoot,,=,*); else; select(setfoot,,=,*); endif; endif; endif;


#RtBOpiIj
<done_config>
#evflag(*selected,==,id(sysm:cnf_sound)); if(nowres); config(soundmute); goto(1); endif;
evflag(*selected,==,id(sysm:cnf_sound)); if(nowres); evflag(*config:soundmute,==,0); if(nowres); evflag(*config:soundmute,=,10); else; evflag(*config:soundmute,=,0); endif; goto(1); endif;
#evflag(*selected,==,id(sysm:cnf_sndvol)); if(nowres); config(soundvol); goto(1); endif;
evflag(*selected,==,id(sysm:cnf_sndvol)); if(nowres); evflag(*selected,=,evf(*config:soundvol)); evflag(*selected,/=,-100); select(*mʑIn(cid=,udev=update_selectvol)); evflag(*selected,>=,0); if(nowres); evflag(*config:soundvol,=,evf(*selected)); evflag(*config:soundvol,*=,-100); endif; goto(1); endif;
evflag(*selected,==,id(sysm:cnf_sndrev)); if(nowres); config(soundrev); goto(1); endif;
#evflag(*selected,==,id(sysm:cnf_music)); if(nowres); config(musicmute); goto(1); endif;
evflag(*selected,==,id(sysm:cnf_music)); if(nowres); evflag(*config:musicmute,==,0); if(nowres); evflag(*config:musicmute,=,10); else; evflag(*config:musicmute,=,0); endif; goto(1); endif;
#evflag(*selected,==,id(sysm:cnf_mscvol)); if(nowres); config(musicvol); goto(1); endif;
evflag(*selected,==,id(sysm:cnf_mscvol)); if(nowres); evflag(*selected,=,evf(*config:musicvol)); evflag(*selected,/=,-100); select(*mʑIn(cid=,udev=update_selectvol)); evflag(*selected,>=,0); if(nowres); evflag(*config:musicvol,=,evf(*selected)); evflag(*config:musicvol,*=,-100); endif; goto(1); endif;
evflag(*selected,==,id(sysm:cnf_mscrev)); if(nowres); config(musicrev); goto(1); endif;
evflag(*selected,==,id(sysm:cnf_autmute)); if(nowres); config(automute); goto(1); endif;
evflag(*selected,==,id(sysm:cnf_autpause)); if(nowres); config(autopause); goto(1); endif;
evflag(*selected,==,id(sysm:cnf_redraw)); if(nowres); config(redrawparent); goto(1); endif;
evflag(*selected,==,id(sysm:cnf_usesleep)); if(nowres); config(usesleep); goto(1); endif;
#evflag(*selected,==,id(sysm:cnf_glmode)); if(nowres); config(loadbmpmode); goto(1); endif;
evflag(*selected,==,id(sysm:cnf_scshomode)); if(nowres); config(scshomode); goto(1); endif;
evflag(*selected,==,id(sysm:cnf_drewtime)); if(nowres); config(dspdrewtime); goto(1); endif;
evflag(*selected,==,id(sysm:cnf_default)); if(nowres); config(default); goto(1); endif;
evflag(*selected,==,id(sysm:cnf_defwnd)); if(nowres); config(defwnd); goto(1); endif;
evflag(*selected,==,id(sysm:cnf_winmode)); if(nowres); config(winmode); goto(1); endif;

evflag(*selected,==,id(sysm:setautbtl)); if(nowres); evflagsw(autobtl,^=); goto(1); endif;
#evflag(*selected,==,id(sysm:memautbtl)); if(nowres); subevent(autbtlmem,); goto(1); endif;
evflag(*selected,==,id(sysm:savebtbcur)); if(nowres); evflagsw(savebtbcur,^=); goto(1); endif;
#evflagsw(savebtbcur,!=,0); if(nowres); text(1,,J[\ʒuۑ悤ɂȂB); else; text(1,,J[\ʒuۑȂ悤ɂȂB); endif; 
evflag(*selected,==,id(sysm:autride)); if(nowres); evflagsw(autrideoff,^=); goto(1); endif;
evflag(*selected,==,id(sysm:nescapemsg)); if(nowres); evflagsw(nescapemsg,^=); goto(1); endif;
evflag(*selected,==,id(sysm:nomotion)); if(nowres); evflagsw(nomotion,^=); goto(1); endif;
evflag(*selected,==,id(sysm:bchcenter)); if(nowres); evflagsw(bchcenter,^=); goto(1); endif;
evflag(*selected,==,id(sysm:dsplvupst)); if(nowres); evflagsw(dsplvupst,^=); goto(1); endif;
evflag(*selected,==,id(sysm:kugiriketa)); if(nowres); evflag(kugiriketa,==,4); if(nowres); evflag(kugiriketa,=,0); else; evflag(kugiriketa,==,0); if(nowres); evflag(kugiriketa,=,3); else; evflag(kugiriketa,=,4); endif; endif; goto(1); endif;
evflag(*selected,==,id(sysm:dspeneicon)); if(nowres); evflagsw(dspeneicon,^=); goto(1); endif;
evflag(*selected,==,id(sysm:usebigbtp)); if(nowres); evflagsw(usebig,^=); subevent(kigae,); goto(1); endif;
evflag(*selected,==,id(sysm:dspenemsg)); if(nowres); evflagsw(dspenemsg,^=); goto(1); endif;
evflag(*selected,==,id(sysm:dspending)); if(nowres); evflagsw(ct_cuted,^=); goto(1); endif;
#evflag(*selected,==,15); if(nowres); evflagsw(fastrecv,^=); goto(1); endif;
#evflag(*selected,==,15); if(nowres); evflagsw(dspefccond,^=); goto(1); endif;
#evflag(*selected,==,16); if(nowres); evflagsw(dspefcelem,^=); goto(1); endif;
#evflag(*selected,==,17); if(nowres); evflagsw(dspbsef,^=); goto(1); endif;
label(1); select(update);


<update_selectvol>
select(+ő(id=0));
select(+-100(id=1));
select(+-200(id=2));
select(+-300(id=3));
select(+-400(id=4));
select(+-500(id=5));
select(+-600(id=6));
select(+-700(id=7));
select(+-800(id=8));
select(+-900(id=9));
select(+-1000(id=10));
select(+-2000(id=20));
select(+-3000(id=30));
select(+-4000(id=40));
select(+-5000(id=50));


#ʂ̔
<door>
sound(select); fc(*target,apr,=,0);
#sound(select); fc(*target,pic,=,); fc(*target,blrgn,=,d);


#A̔
<door-cave>
item(check:eq,cavkey,1); if(nowres);
evflagsw(ex_caverock,==,0); if(nowres); evflagsw(ex_caverock,=,1); text(1,(face=uam, swait=-1),w%it[*cavkey].nmicxI); endif;
sound(select); fc(*target,apr,=,0);
else; sound(shield); text(1,face=uam,|ĂB);
endif;


#{a̔
<door-casl>
item(check:eq,caskey,1); if(nowres); sound(select); fc(*target,apr,=,0);
else; sound(shield); text(1,face=uam,|ĂB); endif;


<door_s>
fc(*actor,y,<,fc(*target,y)); if(nowres); sound(select); fc(*target,apr,=,0);
#fc(*actor,dir,==,d); if(nowres); sound(select); fc(*target,apr,=,0);
else; sound(shield); text(1,face=uam,炩ł͊JȂ悤B);
endif;


<door_n>
fc(*actor,y,>,fc(*target,y)); if(nowres); sound(select); fc(*target,apr,=,0);
#fc(*actor,dir,==,u); if(nowres); sound(select); fc(*target,apr,=,0);
else; sound(shield); text(1,face=uam,炩ł͊JȂ悤B);
endif; 


#󔠔ėp
<box_item>
evarg(item,gold);
fc(*target,ani,=,4);

#ACe
evflag(*selected,=,evf(*evarg:item));
evflag(*selected,>=,0); if(nowres);
#item(get,*selected,1); or; mapis(X̃_W); if(nowres); sound(select); text(0,w%it[s].nmicxɓꂽI); fc(*target,apr,=,0);
item(get,*selected,1); if(nowres); sound(select); text(0,w%it[s].nmicxɓꂽI); fc(*target,apr,=,0);
evcombi(ex_item,!&,,evf(*evarg:item)); if(nowres); evcombi(ex_item,|=,,evf(*evarg:item)); subevent(item_explain(evf(*evarg:item)),); endif;
true;
else; text(0,w%it[s].nmicxAȏ͎ĂȂB); fc(*target,ani,=,0);
false;
endif;

else;
#S[h
#evflag(*64:instant2,=,evf(*evarg:gold));
evflag(*evarg:gold,>,0); if(nowres);
#party(,gold,<,9999999999999999); or; mapis(X̃_W); if(nowres);
party(,gold,<,9999999999999999); if(nowres);
#party(,gold,+=,evf(*64:instant2)); sound(select); text(0,w%o[*gold]%evh[*instant2]~xɓꂽI); fc(*target,apr,=,0);
party(,gold,+=,evf(*evarg:gold)); sound(select); text(0,w%o[*gold]%eva[*gold]~xɓꂽI); fc(*target,apr,=,0);
#else; text(0,w%o[*gold]%evh[*instant2]~xAztB); fc(*target,ani,=,0); endif;
true;
else; text(0,w%o[*gold]%eva[*gold]~xAztB); fc(*target,ani,=,0);
false;
endif;
#fc(*target,ani,=,4); party(,gold,+=,500); sound(select); text(0,w%o[*gold]ܕS~xɓꂽI); fc(*target,apr,=,0);
#fc(*target,ani,=,4); party(,gold,+=,3000); sound(select); text(0,w%o[*gold]O~xɓꂽI); fc(*target,apr,=,0);
#fc(*target,ani,=,4); party(,gold,+=,10000); sound(select); text(0,w%o[*gold]떜~xɓꂽI); fc(*target,apr,=,0);
#fc(*target,ani,=,4); party(,gold,+=,60000); sound(select); text(0,w%o[*gold]Z~xɓꂽI); fc(*target,apr,=,0);

else;
#
text(0,ۂccB); fc(*target,apr,=,0);
true;
endif;

endif;


#ACe
<item_explain>
evarg(item);
evflag(*evarg:item,==,id(item:chyaku)); if(nowres); text(1,(face=uam, swait=-1),w%ct2%it[*chyaku].nmic%cdx́AŜuoSł鐦ACeBgpɂ̓j[w%sysm[*slcitem].nmicxI悤I@Aړi퓬jɂgp͂łȂB܂AuoOɂȂĂ܂o[͉񕜂łȂ̂ŒӂKvBȂƂɋAĉ񕜂悤I); end; endif;
evflag(*evarg:item,==,id(item:u[X^[)); if(nowres); text(1,(face=uam, swait=-1),w%ct2%it[*u[X^[].nmic%cdx́AdoꎞIɂR{ɂACeB̃Q[݂͓͌sAdo͒iʁixjオĂAbvȂBp΁AigȂ\͂g悤ɂȂ邾낤BȂA󔠓͓ÅOɏoΉxł̂ŁAłɓ邼I); end; endif;
evflag(*evarg:item,==,id(item:)); if(nowres); text(1,(face=uam, swait=-1),w%ct2%it[*].nmic%cdx́AgƖTO̊ԁAG̏o؂ȂȂACeBʂȐ퓬͖hȂB܂A܂藔pċG̋nɓ荞ł܂ƁASłɋÂ͍ƂȂ̂ŒӂBURApxɂĂBɌʂꍇ̓j[́w%ct2%sk[*ʂ̉].nmic%cdxgB); end; endif;
#text(1,(face=uam, swait=-1),w%ct2%it[*].nmic%cdx́AgƖTO̊ԁAG̏o؂ȂȂACeBʂȐ퓬͖hȂB܂A܂藔pċG̋nɓ荞ł܂ƁASłɋÂ͍ƂȂ̂ŒӂBURApxɂĂBɌʂꍇ́w%sysm[*item].nmicx́w%ct2%it[*ʂ̉].nmic%cdxgB);
#text(1,face=uam,w%it[*].nmicx́Ag΂TO̊ԁAG̏oȂȂACeBʂȏꍇ͏B\nG̋Ɋ֌WȂʂ𔭊邪A܂藔pċG̋nɓ荞ł܂Ɩʓ|ɂȂ̂ŒӂBURApxɂĂB);
#text(1,face=uam,ɐ̌ʂꍇ́Aj[́uʂ̉vIڂB);
#text(1,face=uam,ɐ̌ʂꍇ́w%sysm[*item].nmicx́w%it[*ʂ̉].nmicxgB);
#ixłg܂j
evflag(*evarg:item,==,id(item:)); if(nowres); text(1,(face=uam, swait=-1),w%ct2%it[*].nmic%cdx́AgƉivɓGoȂȂACeBʂꍇ̓j[́w%ct2%sk[*ʂ̉].nmic%cdxIB); end; endif; 
evflag(*evarg:item,==,id(item:)); if(nowres); text(1,(face=uam, swait=-1),w%ct2%it[*].nmic%cdx́AAȂǂO֑₩ɒEołACeBȂȂė炱pĒEo悤I); end; endif;
evflag(*evarg:item,==,id(item:Wv)); if(nowres); text(1,(face=uam, swait=-1),w%ct2%it[*Wv].nmic%cdx́AƂȂǓ̏ꏊ֏uɈړłACeBȂȂė炱pċA҂悤I@A_Wł͎gȂ̂ŗvӂI); end; endif;
evflag(*evarg:item,==,id(item:cavkey)); if(nowres); text(1,(face=uam, swait=-1),w%ct2%it[*cavkey].nmic%cdx́AĂ邾œ̔J悤ɂȂACeBxJĂꂽ͂Ȃ̂ňSB̗ނ̃ACe͂Qȏ͎ĂĂӖ͖AԂꂽ͔Ă܂I); end; endif;
evflag(*evarg:item,==,id(item:henge)); if(nowres); text(1,(face=uam, swait=-1),w%ct2%it[*henge].nmic%cdx́As̎pƊς鎖łACeI@A{I%ct2PȂ邨Vїp%cdłAUɕKvƂ킯ł͖I); end; endif;
#bۂ̔ɕωNꍇ邩AɂȎɂ͎Ă݂悤I
# text(1,(face=uam, swait=-1),w%ct2%it[*henge].nmic%cdx́APȂ邨Vїp̃ACeBs̎pƊς鎖łAbۂ̔ɕωN鎖邪AUɕKvƂ킯ł͖Bxłɓ邵AĂ܂Ă͖B);
#U̖ɗ͖B
#eXgp
evflag(*evarg:item,==,id(item:jukebox)); if(nowres); text(1,(face=uam, swait=-1),w%ct2%it[*jukebox].nmic%cdx́Â鉹yTEh𕷂łACeBȏ̈Ӗ͖I); end; endif;
#evflag(*evarg:item,==,id(item:e)); if(nowres); text(1,face=uam,ĂƁAނ̂̂wł肷B); end; endif;




#buyR}h
#shop.txtŎw肵X̎ʎqwB


#@
<sell>
text(1,face=uam,@B);
item(sell,);


<bank>
select(*mɁn(cid=,swait=-1,udev=update_bank,dnev=done_bank));


<update_bank>
select(+ia(id=0,ic=put));
select(+io(id=1,ic=get));
select(+a(id=2,ic=put));
select(+o(id=3,ic=get));
select(+(id=4,ic=question));
#select(+(ic=close));


<done_bank>
evflag(*selected,==,0); if(nowres); item(bankput); goto(1); endif;
evflag(*selected,==,1); if(nowres); item(bankget); goto(1); endif;
evflag(*selected,==,2); if(nowres); inpnum(man\n100~P,16,(rate=100,mode=buy,cable=1,dt=gdbank)); goto(1); endif;
evflag(*selected,==,3); if(nowres); inpnum(mon\n100~P,16,(rate=100,mode=sell,cable=1,dt=gdbank)); goto(1); endif;
evflag(*selected,==,4); if(nowres); text(1,,̋ɂł̓ACeij₨̕ۊǂł܂B퓬ɎgACe͑20炢܂ł^ׂ܂񂪁AȂe9999܂ŗa܂̂ŁA̎̃ACeXgbNĂƂėpł܂BuꎞIɎ茳ĂvƂꍇɂpł܂B\rɂẮAƂ͂܂񂪁A܂ÃQ[ł͑SłĂ܂ƁAɂȂĂ܂܂BƂ낪AaĂ΂͌̕ȂA_܂B100~Pʂŗa`ɂȂĂ܂B); goto(1); endif;
#evflag(*selected,==,4); if(nowres); text(1,face=uam,̋ɂł̓ACeij₨̕ۊǂłB퓬ɎgACe͑20炢܂ł^ׂȂAȂe9999܂ŗa邼I@܂AaĂ邨́ASłĂȂI); goto(1); endif;
#ȂAäo̐؂ւ́Aeꗗ̍Ō̏ł\B
select(close); end;
label(1); select(update)


<bankget>
text(1,face=uam,̋ɂ͖{̋ɂƌqĂ悤A͕ïô݂o悤B);
item(bankgetonly); 


<bankput>
text(1,face=uam,̋ɂ͖{̋ɂƌqĂ悤A͕i̗aƒg̊mF݂̂o悤B);
select(*mɁn(cid=,swait=-1,udev=update_bankput,dnev=done_bankput));


<update_bankput>
select(+ia(id=0,ic=put));
select(+gmF(id=1,ic=lens));
#select(+(ic=close));


<done_bankput>
evflag(*selected,==,0); if(nowres); item(bankputonly); goto(1); endif;
evflag(*selected,==,1); if(nowres); item(bankwatch); goto(1); endif;
select(close); end;
label(1); select(update);


#imageR}hi摜\j
#C[ԍi0ȏB傫֕\BY[̒SύXfcscroll*nullwōsj
#
#setTuR}h
#sN`ԍAʒuAʒuAsxiwŊSs(255)jAY[i1000jAApxijAAjx
#
#sclTuR}hi摜XN[j
#xAxAtF[hxAY[xAY[x
#
#posTuR}hi摜̈ʒuύXj
#ʒuAʒu
#
#fadeTuR}hi摜̕sxύXj
#sx(0`255)
#
#anisTuR}hiAjxύXj
#x
#
#aniiTuR}hiAjR}ԍύXj
#R}ԍ

#disptoimageR}hi~j
#݂̉ʂ̉fǎɃRs[


<checkplaytime>
playtime(>=,s1800); and; evflagsw(ex_playtime,==,0); if(nowres); evflagsw(ex_playtime,=,1); text(1,face=uam,Ԃ̃vCAlłI); endif;


#battleR}h
#enegr=GO[vʎqiw肵ꍇ̓_ł蕪j
#back=퓬wi
#chidmg=n`_[WpXL
#bgm=yidefFGÃftHgAnochangeFύXȂAsilentFj
#winbgm=y
#losebgm=sky
#fade=퓬Jnʁi㔼j
#mfade=ʂɏɊ|锼ʁBuF:ZvŎw
#stm=퓬Jn[hi0FC[uA1Fp[eB̗DA2FG̗DA-1(܂͖w)FftHg̓ŐU蕪j
#dg=_WtO
#btm=̑⏕wi|ŘAj
#@iwF̃ftHCxg𔭓Ȃ
#@ifFsḱV
#@ieF́V
#@neFs
#@aeFm
#@npFZꃂ[h
#@nsF֎~
#i퓬̌ʂɂ镪selectisōsB1Ask2A3j

#feffectR}hiړɃGtFNg𔭓j
#GtFNgʎqCi+/-jCΏۃLxiw̏ꍇ()ŊjCLxCGtFNgI܂ő҂ǂC
#퓬CxgƂĂ͋@\ȂBbeffectgpB

#evtextR}hiσeLXg𑀍j
#σeLXgʎq
#Zqiinputw肵ꍇ͕̓[hBo[Ȃǂ̏ꍇlj
#eLXg
#
#̓[h̎w
#^Cg
#
#y[Wԍ
#ő啶i0ȉw肷ƃftHgj
#LZ̉s

#inpnumR}híB͂ꂽl݂͌̒lɑBLZ-1Ԃ̂ŒӁBI[o[t[ɒӁB鐔l͂16炢܂Łj
#^CgCCeݒiȉjC
#x=ʒu
#y=ʒu
#rate=0ȊOw肷ƁA̒l~͒lsڂɕ\
#mode=1w肷Ɓu|rate~͒lv\
#cable=LZہi1ŉA0ŕsjB
#max=͂łől
#min=͂łŏl
#init=ŏɕ\li*selectedőIIDԍA*nowvalŌݒlQƁj


#X^bt[
<ending>
fade(out,(type=fade,color=ffc000,wait=64)); image(0,set, picture:uamumaru,0,0,0,0,,,,,); fade(in,(type=fade,color=ffc000,wait=64)); caproll(ySʁz\nACON-KYOU\n\nyLfUz\nu[gieāj\nACON-KYOU\n\ny͎ʎz\nwق̊wKSȐ}\n\nyfobOEeXgvCz\nACON-KYOU\n\nyJc[z\nMicrosoft Visual C++\n\nyMIDI쐬c[z\nCakewalk\nE\n\nyWAVE쐬c[z\nSWave\nMSںް\n\ny`c[z\nMSyCg\nPictBear\n\nTL[EtH[EvCOI\n\nTHE ,ffff00,00c000,16,2,10,2); fade(out,(type=fade,color=ffc000,wait=64)); image(0,set,); fade(in,(type=fade,color=ffc000,wait=64));
#\nؐla\nhȋZw
#\n\nyXyVTNXz\n
#fade(fade,1,ffc000,255,64); caproll(FACON-KYOU\nyE摜FACON-KYOU\neXgvC[FACON-KYOU\nTHE ,ffff00,00c000,16,4,4,2,ffc000,uamback.bmp); fade(in,fade,ffc000,255,64);
#fade(fade,1,ffc000,255,64); caproll(FACON-KYOU\nyE摜FACON-KYOU\neXgvC[FACON-KYOU\nJc[Fub{{\nMIDI쐬c[FCakewalk\nWAVE쐬c[FSWaveAMSںް\n`c[FMSyCgAPictBear\nTHE ,ffff00,00c000,16,4,4,2,ffc000,uamback.bmp); fade(in,fade,ffc000,255,64);
#fade(fade,1,ffc000,255,64); caproll(FACON-KYOU\nyE摜FACON-KYOU\neXgvC[FACON-KYOU\nJc[Fub{{\nMIDI쐬c[FCakewalk\nWAVE쐬c[FSWaveAMSںް\n`c[FMSyCgAPictBear\nTHE ,ffff00,00c000,16,2,4,2,ffc000,uamback.bmp); fade(in,fade,ffc000,255,64);
#EEEāAȂ\nyyE摜z\nACON-KYOU\n\nyvOz\nACON-KYOU\n\nyfށz\nACON-KYOU\n\n
#image(0,set, uamback.bmp,,0,0,0); image(0,scl, 0,0,8); wait(32); caproll(yz\nACON-KYOU\n\nyyE摜z\nACON-KYOU\n\nyLfUz\nu[g\nACON-KYOU\n\nyeXgvC[z\nACON-KYOU\nEEEāAȂ\n\nyJc[z\nub{{\n\nyMIDI쐬c[z\nCakewalk\n\nyWAVE쐬c[z\nSWave\nMSںް\n\ny`c[z\nMSyCg\nPictBear\n\nTHE ,ffff00,00c000,16,2,10,2); image(0,scl, 0,0,-8); wait(32); image(0,set,);


#caprollR}h
#񐔁C~񐔁C̐FC̉FC̔aC̉C񖧓xC񑬓xCtF[hFCǎt@CC


#partyR}h
#offFp[eB烁o[OBŏ͈lŁAȏOƂĂBΏۃo[Ȃꍇ͖B
#onFp[eBɃo[Bő͌ܐlŁAȏ悤ƂĂBΏۃo[ɋꍇ͖B
#checkFp[eBɃo[邩ǂ
#changeFp[eB̃o[ʂ̃o[ɕύX
#headisF擪iړɕ\Ăjo[ƈvĂ邩ǂ
#headsetFp[eBɑΏۃo[ꍇA擪Ɏw
#headincF擪o[֐؂ւB
#allFp[eBۂƐݒiΏۃo[̎ʖ~w肷鐔j
#countFp[eB̃o[mF
#alvcountFp[eB̌݃o[mF
#mxcountFp[eB̃o[eʂmF
#resizeFp[eB̋el퓬zuύX
#resetposFp[eB̋el퓬zuԂɖ߂
#changedlgFҐʂJi[h@+1Fp[eB@+2F󗓃p[eBF߂j
#addableFҐʂ𐳏ɊłԂ
#goldF̑


#enpartyR}hĩ݂p[eBݒj


#memR}himemberR}h̑Ώۂwj
#
#[hi*o[ʎqFo[ʎqŎw@posFp[eBʒuŎw@headF擪ij@bcslcFi퓬jIĂ퓬LɑΉ郁o[@randF̒烉_@selectFvC[ɂđI@forpF̑SΏہBnextmemƑgݍ킹ĎgBforallFO܂߂SΏہBVj
#ijɂ擪ł͂ȂAړɕ\Ăl̂ƁB
#
#select[h
#0F߂閳@1F߂LiLZ{^sj@2F߂LiLZ{^j
#Fselect[h̏ꍇAIꍇɐ^AIȂꍇɋUMB
#
#pos[h
#ȂꍇɋUAłȂꍇɐ^MB
#
#forpAforall[h
#nextmemR}hƃZbgŎgBdǂ납ArmemR}hĂяoɂΉB


#nextmem
#wFΏۑSɑ΂s
#allFYȂ
#exisFNɈv


#memslcR}h
#selectŎwł郁o[w


#memberR}h
#o[wA[h
#
#job[h
#vt^Cv(푰Eʓ)
#==:ʁ@=:ύX@swap:]@resetFɖ߂@printFWu𔻒pɏo
#iswapjݓ]Wu
#
#equip[hij
#i=FwBL̂͏Ł@changeFwBobOƘA@releaseF݂̑SĂ̑OăobOɖ߂@==FmFAlostFAresetFɂAprintFeLXg֏óAmanualF蓮̑ύXʂJAexisFꊇŊmFj
#ichange/=̏ꍇjӏiԍŎwA-ӏw肷ƑSẲӏΏہj
#ichange/=/check̏ꍇjiwi󔒂Ŗj
#exis̏ꍇFslcFselectedidɍŏ̊YʂAchabFύX\Ȃ̂Ɍ
#
#subflg[hi⏕tOmember.txtj
#
#exp[hiol̎wj
#Z[h
#oli*擪Ɏw肷鎖ŁAԂ̌olQƁBLnw肷鎖ŁAxn̎̌olAL+nw肷鎖ŁÃ݂x{n̎̌olj
#z[hibase.txtƓ`j
#
#level[hix̊mFݒj
#Z[h
#x
#
#lvm[hElvs[hiő僌xEx㏸x̊mFݒj
#ij
#
#resetpic[hi摜Zbgj
#
#is[himFj
#
#sȉbcR}hłgpt
#
#attack[hi_[W^j
#[hi+2F_[W\@+8Fړ̑SŏjAŒʏiskill.txtj
#
#recover[hi񕜂jiattack[h̊ȗŁj
#uo񕜗ʁAdo񕜗ʁAԂ̕ωA[hi+2F_[W\j
#
#pcond[hiuoԂ̊mF^ωj
#Xe[^XFvpAepAcond
#condFԎʎqwA󔒂ňꊇw
#Z[hF@==A!=A>=A<=A>A<A=A+=
#l
#irńAcond̑S̎wɂ͔ΉBńAconďʎwɂ͖ΉBj
#
#name[hiOύXj
#=FQ[Ŏw@inputFinputR}hœ͂w@resetFɖ߂@printFpɏo
#
#icon[hiACRύXj
#
#skill[hiZ̒ǉE폜EmFBGL͍폜ƊmF̂݁j
#getFǉ@lostF폜ixAbvŏKZ͖YȂj@checkaddFǉZixAbvȊŐZjmF@checkallFSZmF@resetF@clear:SĂlosti_łresetƓj@captureFݎgZSĒǉɊ܂߂i]E̋Z̕ێpj
#iȉAresetcaptureȊO̎jZ
#iget̎jZ̃Ajp^[
#iȉAcheckjLꍇ
#ꍇ
#
#status[h/cutcond[h/cutelem[h/ampelem[h/autcond[hiύXn̓ftHg{̃j
#iautcond[hȊOjXe[^XԂ̎ʎq
#[hF
#	allFݒl(펞)
#	orgFWu𖳎o[ŗLliύXn͂̂݉\j
#	encdFԕω̉e
#	reset:l֖߂i݂0j@
#	captureFݒliǉցj
#
#picset[his摜^퓬摜^摜ƃAjxύXj
#fchFs摜
#bchF퓬摜
#face:摜
#orgFLɎw肳ꂽ摜
#allFEEɂe߂摜
#altF։摜̉e
#acttOw肷ƌʔ^ύXAw肵Ȃƈړ摜ꊇύXA*answ肷ƃAjx̔^ύX
#
#exilev[hi{IȏԊmFj
#exiF݁@alvF퓬s\@al2FSŗvԁ@mvaF~nԁ@ctaF񍬗nԁ@mcaF~n񍬗nj
#
#sȉ͐퓬pt
#
#set[hiLN^[ݒuBԂ̏ꍇ͏d˖ji݁AԂw肵ꍇ͕sBԂ̓ւpartyōsj
#orG̎ʖiw̏ꍇ͗Ej
#[hF
#	+1Fϐgɂ͌olES[hEƂACeZňpB
#	+2Fړo^EB
#	+4FuChoB
#move[hiʒuړj
#ʒuA
#w肵ʒuֈړ鋗
#iw肵ʒuƖv̏ꍇɐ^𔭐Mj
#
#action[hiZBΏۂ̒mȂZLj
#Z̎ʖAsAjAJE^[AȂA
#ΏہiorGAʒu̔ԍj
#
#turn[hi^[̊mFEwj
#turn2[hi݌v^[̊mFEwj
#Z[h
#l


#fύXiږ̐tڑǏɃo[Ij
<selesubty>
#evflagsw(ex_changeprof,==,0); if(nowres); text(1,face=uam,ʂ⍑ЂȂǂς悤B); evflagsw(ex_changeprof,=,1); endif;
text(1,face=uam,ʂ⍑ЂȂǂς悤B);

#text(1,face=uam,ł͐ʂȂǂς邪AQ[̐isɂ͓Ɋ֌WȂB);
#iCxgɉê͋ɈꕔɗLj
#ʈȊO͉摜̕ωSB
#ʂ̂݁AWuɂĂ͉摜ωB
#member(subtype,all,);
#label(1);
#-#mem(select,m푰ύXn,2); if(nowres); member(subtype,); goto(1); endif;
#subevent(setsubty,);

#evflag(instant1,=,0);
#label(0);

select(*m%sysm[*cngjb].nmicn(x=32,y=32,cid=,udev=update_selesubty,dnev=done_selesubty));

#label(1); formem(party); member(subtype,푰,=,); nextmem(); end;
#label(2); formem(party); member(subtype,,=,); nextmem(); end;
#label(3); subevent(seitenkan,); end;


<update_selesubty>
#item(check:eq,_},1); and; item(check:eq,L,1); and; item(check:eq,,1); and; item(check:eq,͂ɂ,1);
# and; item(check:eq,osb,1); and; item(check:eq,dub,1); and; item(check:eq,KX{x,1); and; item(check:eq,ꎫT,1); and; item(check:eq,aT,1); and; item(check:eq,},1);
#select(+]E(id=0,en=*nowres,com=OtBbNe\͕ω));
#com=S̐l`𑵂鎖ŕύXցB
select(+ʂς(id=1,com=ꕔOtBbNωBuisjvuԂ񁉁vuԂ񁊁vȊO̓I}PB));
select(+iς(id=2,com=\lɕωBȊỎe͈ؖB));
select(+t^ς(id=3,com=SɏB));
select(+Ђς(id=4,com=SɏB));
select(+o[ɑI(id=5));
#select(+(ic=question,id=10));
#select(+(ic=close));


<done_selesubty>
#evflag(instant1,=,evf(*selected));
#evflag(*selected,==,0); if(nowres); subevent(slcjob,); endif;
#evflag(*selected,==,1); if(nowres); member(head,job,,manual); endif;
#evflag(*selected,==,2); if(nowres); member(head,job,i,manual); endif;
#evflag(*selected,==,3); if(nowres); member(head,job,,manual); endif;
#evflag(*selected,==,4); if(nowres); member(head,job,t^,manual); endif;
evflag(*selected,==,1); if(nowres); subevent(slcsubty1,); goto(1); endif;
evflag(*selected,==,2); if(nowres); subevent(slcsubty2,); goto(1); endif;
evflag(*selected,==,3); if(nowres); subevent(slcsubty3,); goto(1); endif;
evflag(*selected,==,4); if(nowres); subevent(slcsubty4,); goto(1); endif;
evflag(*selected,==,5); if(nowres); subevent(selesubty_2,); goto(1); endif;
#evflag(*selected,==,10); if(nowres); text(1,face=uam,ł͐ʂ⍑ЂȂǂύXł܂AQ[̐isɂ͓Ɋ֌W܂B); goto(1); endif;
#\nEύXɂẮA{͂̃Q[SNAۂ̃I}PȂ̂łAS̐l`𑵂Ă܂ꍇ́Aʂɂłp\ƂȂ܂i͂܂jB
#\nȂAS̐l`𑵂鎖ɂāA{ʗvf̓TłEύXp\ƂȂ܂i͂܂jB
label(1); select(update);


#]E
<slcjob>
memslcbox(all:job:E,m]En\n%ct2l%job[*ilg]ւ̐i%cd,,32,2); if(nowres);
#memslcbox(all:E,m]En\n%ct2l̂݁A%job[*ilg]ieXgpj\nւ̐iƂȂ܂B%cd,,,2); if(nowres);

member(select,job,E,==,ilg); if(nowres);
member(select,job,E,=,ilr);
feffect(down,,*slcmem,*slcmem,1); beffect(down,1,*slcmem,exi,*slcmem,exi,,7,1); subevent(kigae_sub,);
text(1,face=uam,%mem[s]%job[*ilr]ɖ߂B); end;
endif;

#member(select,job,E,==,ilr);
member(select,is,*l); if(nowres);
music(over,=,*silent:0);
sound(attack1); flash(ffc000,128,8); wait(4); sound(attack1); flash(ffc000,192,8); wait(4); sound(attack1); flash(ffc000,255,8); wait(16);
member(select,job,E,=,ilg);
feffect(up2,,*slcmem,*slcmem,1); beffect(up2,1,*slcmem,exi,*slcmem,exi,,7,1); subevent(kigae_sub,);
wait(44);
#music(over,=,);
#music(*def:def);
music(over,=,win:0);
text(1,face=uam,%ct2%mem[s]%cd%ct2%job[*ilg]%cdɐiIiړOtBbNɕςĂ܂j);
music(over,=,);
end;
endif;

member(select,job,E,print);
select(*mEύXF%mem[s]n\n݁F%str[0](cid=-2,swait=-1,udev=update_slcjob));
evflag(*selected,>=,0); if(nowres);
member(select,job,E,=,*selected);
feffect(up,,*slcmem,*slcmem,1); beffect(up,1,*slcmem,exi,*slcmem,exi,,7,1); subevent(kigae_sub,);
member(select,job,E,print); text(1,face=uam,%ct2%mem[s]%cd%ct2%str[0]%cdɓ]E); end;
endif;

endif;

text(1,face=uam,]E𒆎~); end;


<update_slcjob>
select(+ɕύX(id=job:i));
select(+lԂɕύX(id=job:il));
select(+ԌɕύX(id=job:iԌ));
select(+d_ɕύX(id=job:id_));
select(+cqɕύX(id=job:icq));
select(+̗dɕύX(id=job:i̗d));
select(+{bgɕύX(id=job:i{bg));
select(+KCRcɕύX(id=job:iKCRc));
select(+߂(id=-2));
select(/mem(select,job,E));


#memslcboxR}h
#[hiparty/allj
#o[ƕLfʁi*subnamew肷ƓɁA*autlvupw肷ƃI[gxAbv̂nm^neeɁA*autbtlw肷Ǝ퓬̂nm^neeɁA*rubyw肷ƃtKiɁj
#eLXg
#ʒu
#ʒu
#LZ


#ʕύX
<slcsubty1>
while;
memslcbox(party:job:,mʕύXn\niꕔOtBbNωj,32,32,2); if(nowres);
member(select,job,,manual);
subevent(setsubjob,);
next; wend;
endif;


#iύX
<slcsubty2>
while;
memslcbox(party:job:i,miύXn\ni\lɕωj,32,32,2); if(nowres);
member(select,job,i,manual);
next; wend;
endif;


#t^ύX
<slcsubty3>
while;
memslcbox(party:job:t^,mt^\{ABO\}ύXn\niSɏj,32,32,2); if(nowres);
member(select,job,t^,manual);
next; wend;
endif;


#ЕύX
<slcsubty4>
while;
memslcbox(party:job:,mЕύXn\niSɏj,32,32,2); if(nowres);
member(select,job,,manual);
next; wend;
endif;


#fύXio[ˉӏ̏őIj
<selesubty_2>
#text(1,face=uam,ʂ⍑ЂȂǂς悤B);

while;
memslcbox(party,m%sysm[*cngjb].nmicn,32,32,2); if(nowres);
member(select,job,*all,manual);
formem(party); subevent(setsubjob,); nextmem();
next; wend;
endif;


#fύX̌㏈
<setsubjob>
subevent(kigae_sub,);
#member(select,resetpic,29);
member(select,job,,exis,,n); if(nowres); member(select,pcond, cond,,+=,am(-inf)); endif;


#]
<seitenkan>
formem(party);
member(select,job,,swap,,);
member(select,job,,swap,,);
member(select,job,,swap,,);
member(select,job,,swap,IJ},Iix);
subevent(setsubjob,);
nextmem();

#ifmember(subtype,ind,0,,,1,); ifmember(subtype,ind,0,,,2,); goto(3);
#label(1); chmember(subtype,ind,0,,); goto(3);
#label(2); chmember(subtype,ind,0,,); goto(3);
#label(3);
#ifmember(subtype,ind,1,,,4,); ifmember(subtype,ind,1,,,5,); goto(6);
#label(4); chmember(subtype,ind,1,,); goto(6);
#label(5); chmember(subtype,ind,1,,); goto(6);
#label(6);
#ifmember(subtype,ind,2,,,7,); ifmember(subtype,ind,2,,,8,); goto(9);
#label(1); chmember(subtype,ind,2,,); goto(9);
#label(2); chmember(subtype,ind,2,,); goto(9);
#label(9);
#ifmember(subtype,ind,3,,,10,); ifmember(subtype,ind,3,,,11,); goto(12);
#label(10); chmember(subtype,ind,3,,); goto(12);
#label(11); chmember(subtype,ind,3,,); goto(12);
#label(12);
#ifmember(subtype,ind,4,,,13,); ifmember(subtype,ind,4,,,12,); goto(15);
#label(13); chmember(subtype,ind,4,,); goto(15);
#label(14); chmember(subtype,ind,4,,); goto(15);
#label(15);

text(0,ʂւI);


<allism>
formem(party); member(select,job,,exis,,n); nextmem(all);
#formem(party); member(select,job,,==,); or; member(select,job,,==,); nextmem(all);


<allisf>
formem(party); member(select,job,,exis,,n); nextmem(all);


<exism>
formem(party); member(select,job,,exis,,n); nextmem(exis);


<exisf>
formem(party); member(select,job,,exis,,n); nextmem(exis);


<yjsv>
fade(out,(type=fade,color=000000,wait=32));
sound(heart);
#mem(forp); member(job,,==,); or; member(job,,==,); if(nowres); pcond(mem, cond,,+=,[̍U]5[CU]5); endif; nextmem();
#text(0,͍ȔԂɂȂI);
#mem(forp); member(job,,==,); or; member(job,,==,); if(nowres); pcond(mem, cond,,+=,[[U]); endif; nextmem();
#text(0,͏[UԂɂȂI);
#formem(party); member(select,job,,exis,,n); if(nowres); member(select,pcond, cond,,+=,am(4)); endif; nextmem();
formem(party); member(select,job,,exis,,n); if(nowres);
#mapis(^̎RQ); if(nowres); member(select,pcond, cond,,+=,am(inf)); else; endif;
#member(select,pcond, cond,am,>=,5); if(nowres); member(select,pcond, cond,,+=,am(6)); endif;
#member(select,pcond, cond,am,>=,4); if(nowres); member(select,pcond, cond,,+=,am(5)); endif;
member(select,pcond, cond,am,>=,3); if(nowres); member(select,pcond, cond,,+=,am(4)); endif;
member(select,pcond, cond,,+=,am(3));
endif; nextmem();
text(0,n͐amԁie\l葝jɂȂI);
#\ni퓬Iŉj
fade(in,(type=fade,color=000000,wait=32));


# `SGJEg
<yj4adbl>
item(check:eq,XL[,1); or; item(check:eq,̌,1);


# `TGJEg
<yj5adbl>
evflag(enzyj2,!=,0); and; item(check:eq,XL[,1); and; item(check:eq,,1); and; item(check:eq,@r,1); and; item(check:eq,Ђ傤,1); and; item(check:eq,ToCU[,1); and; item(check:eq,,1); and; item(check:eq,},1); or; item(check:eq,̌,1);
# and; evflagsw(pr_bnyj-a4,!=,0);
and; subevent(yj5enable,);


# `TL
<yj5enable>
true;
#false;


# ɓ̌ǉ邩
<yj5gousei>
unif(event(yj5enable));
evflagsw(pr_bnyj-a4,!=,0); end;
#item(check:eq,u[X^[,1); end;
endif;
false;


<pasocon>
text(1,face=uam,킢炵p\RBɕς@\͖悤B);
#text(1,face=uam,킢炵p\RB);
#text(1,face=uam,u₩ȃp\RB);
#text(1,face=uam,p\RLƂ͗ǂゾB);
#text(1,face=uam,σp\RƂˁB);


<expandparty>
party(,resize,((96,60,-1,0), (96,94,-1,0), (96,128,-1,0), (96,162,-1,1), (96,196,-1,1), (96,230,-1,1), (96,264,-1,2), (96,298,-1,2), (96,332,-1,2)));


#{ҍU
<valapriv>
evflagsw(debug_vala,=,1);
evflagsw(pr_honpen,==,0); if(nowres); evflagsw(pr_honpen,=,1); fc(*actor,mvrgn,|=,C); endif;
#evflag(dspbtrate,|=,0b110011);
evflagsw(pr_caslidou,=,1);
member(*l,subflg,|=,3);
member(*la,subflg,|=,3); member(*llԂa,subflg,|=,3); member(*lԌa,subflg,|=,3); member(*ld_a,subflg,|=,3); member(*lcqa,subflg,|=,3); member(*l{bga,subflg,|=,3); member(*l̗da,subflg,|=,3); member(*lKCRca,subflg,|=,3);
zukan(music:*all,|=,(sub1,sub2,sub3,lose));
zukan(downefc:*all,|=,(down3-t1,down4-t1));
#evcombi(music,|=,music,(sub1,sub2,sub3,lose));
#evflag(dspbtrate,|=,51);
#zukan(cond:,=,1); zukan(cond:,=,1); zukan(cond:R,=,1); zukan(cond:\,=,1); zukan(cond:,=,1); zukan(cond:,=,1); zukan(cond:,=,1); zukan(cond:,=,1); zukan(cond:,=,1); zukan(cond:˟B,=,1); zukan(cond:U,=,1); zukan(cond:ǌU,=,1);
#zukan(elem:,=,1); zukan(elem:,=,1);
#zukan(cond:*all,|=,(,,R,\,,,,,,˟B,U,ǌU));
#zukan(elem:*all,|=,(,));
#evflag(cond1,=,1);


#{XU
<moonpriv>
evflagsw(debug_moon,=,1);
subevent(valapriv,);
zukan(sysm:ex-hyper,=,1);
if(evf(*sw:pr_dfmoon)==0); evflagsw(pr_dfmoon,=,1); fc(*actor,mvrgn,|=,(C,)); endif;
#evflagsw(dspcrtr,=,1); evflagsw(dspblkr,=,1); evflagsw(dspmbdmg,=,1); 
#evflag(dspbtrate,|=,0b1111111);
member(*lb,subflg,|=,3); member(*llԂb,subflg,|=,3); member(*lԌb,subflg,|=,3); member(*ld_b,subflg,|=,3); member(*lcqb,subflg,|=,3); member(*l{bgb,subflg,|=,3); member(*l̗db,subflg,|=,3); member(*lKCRcb,subflg,|=,3);
zukan(music:*all,|=,(mystery));
#evcombi(music,|=,music,(mystery));
zukan(downefc:*all,|=,(down5-t1));
zukan(stat:*all,|=,(atrec,ptref));
#evcombi(stat,|=,stat,(atrec,ptref));


#{XQU
<moon2priv>
evflagsw(debug_omak,=,1);
subevent(moonpriv,);
evflagsw(pr_dfmoon2,=,1); zukan(downefc:*all,|=,(down6-t1,down6-t2,down6-t3));


<resetvp>
member(select,pcond,vp,>,0); if(nowres);
#member(select,pcond,cond,,-=,(inf));
member(select,status,mvp,encd,); member(select,pcond,vp,=,evf(nowval));
endif;


#ՓxޑI
<difficulty>
text(1,face=uam,ՓxIȂ̂ݒł悤B\n%ct3k߂ĕȂlpłBTȂǂ͂܂B%cd);
#evflag(instant1,=,0);

select(*mՓxn̐ݒn(cid=,udev=update_difficulty,dnev=done_difficulty));


<update_difficulty>
evflagsw(exigmov,==,1); if(nowres); evtext(subtx1,=,*L); else; evtext(subtx1,=,*); endif;
#select(+s݁F%str[*subtx1]t(title=Q[I[o[̗L,id=0));
select(+Q[I[o[̗L(foot=%str[*subtx1],col=t3,footcol=t1,id=0));
member(*l,lvs,>=,27); if(nowres); evtext(subtx1,=,*オՂ); else; member(*l,lvs,>=,21); if(nowres); evtext(subtx1,=,*ʁH); else; evtext(subtx1,=,*オ); endif; endif;
#select(+s݁F%str[*subtx1]t(title=iʁixj㏸x,id=1));
select(+iʁixj㏸x(foot=%str[*subtx1],col=t3,footcol=t1,id=1));
#select(+(ic=close));
#select(/instant1);
#evflag(instant1,=,evf(*selected));


<done_difficulty>
evflag(*selected,==,0); if(nowres); subevent(lostmode,); goto(1); endif;
evflag(*selected,==,1); if(nowres); subevent(changelvs,); goto(1); endif;
select(close); end;
label(1); select(update);


#Q[I[o[L
<lostmode>
evflagsw(exigmov,==,0); if(nowres); evflag(*selected,=,0); else; evflag(*selected,=,1); endif;
select(*mQ[I[o[̗Ln(cid=,udev=update_lostmode));
#l񂾂ACéw%it[*Eoo[].nmicxgp悤I)
#evflag(*selected,==,0); if(nowres); evflagsw(exigmov,=,0); text(0,uՂvɕύXB); end; endif;
#evflag(*selected,==,1); if(nowres); evflagsw(exigmov,=,1); text(0,uvɕύXB); end; endif;
evflag(*selected,==,0); if(nowres); evflagsw(exigmov,=,0); end; endif;
evflag(*selected,==,1); if(nowres); evflagsw(exigmov,=,1); end; endif;
#text(0,ύXȂB);
#end;
#label(1); text(1,,ύX܂B);

#evflagsw(exigmov,==,1); if(nowres); evtext(subtx1,=,*); else; evtext(subtx1,=,*Ղ); endif;
#text(1,face=uam,ՓxύXł悤B݂́u%ct2%str[*subtx1]%cdvɂȂĂB);
#select(reset);
#select(+Ղ(id=0,com=Sł炨𔼕ƂċAҁBȏ̃yieB͖B)); select(+(id=1,com=SłQ[I[o[i^Cg֖߂jBIɂT͖A܂ŋْ߂lB)); evflagsw(exigmov,==,0); if(nowres); select(/0); else; select(/1); endif; select(*mՓxIn\n%ct2s݁F%str[*subtx1]t%cd(cid=));
#evflag(*selected,==,0); if(nowres); evflagsw(exigmov,=,0); text(0,uՂvɕύXB); end; endif;
#evflag(*selected,==,1); if(nowres); evflagsw(exigmov,=,1); text(0,uvɕύXB); end; endif;
#text(0,ύXȂB);


<update_lostmode>
#evflagsw(exigmov,==,1); if(nowres); evtext(subtx1,=,*); else; evtext(subtx1,=,*Ղ); endif;
#text(1,face=uam,ՓxύXł悤B݂́u%ct2%str[*subtx1]%cdvɂȂĂB);
#select(+Ղ(id=0,com=Sł炨𔼕ƂċAҁBȏ̃yieB͖B)); select(+(id=1,com=SłQ[I[o[i^Cg֖߂jBIɂT͖A܂ŋْ߂lB)); evflagsw(exigmov,==,0); if(nowres); select(/0); else; select(/1); endif; select(*mՓxIn\n%ct2s݁F%str[*subtx1]t%cd(cid=));
select(+iftHgj(id=0,com=Sł炨𔼕ƂK֋AҁB\nȏ̃yieB͖B));
select(+L(id=1,com=Sł^Cg֋AҁB\nl񂾂烁j[îQy[Wڂ̏jw%sk[*ً}Eo].nmicxI悤I));
#select(+ύXȂ);
#evflagsw(exigmov,==,0); if(nowres); select(/0); else; select(/1); endif;


#x㏸x
<changelvs>
member(*l,lvs,>=,27); if(nowres); evflag(*selected,=,0); else; member(*l,lvs,>=,21); if(nowres); evflag(*selected,=,1); else; evflag(*selected,=,2); endif; endif;
select(*miʁixj㏸xύXn\nIɎcuoőuoƂȂ܂B(cid=,udev=update_changelvs));
evflag(*selected,==,0); if(nowres); formem(all); member(select,lvs,=,27); subevent(resetvp,); nextmem(); end; endif;
evflag(*selected,==,1); if(nowres); formem(all); member(select,lvs,=,21); subevent(resetvp,); nextmem(); end; endif;
evflag(*selected,==,2); if(nowres); formem(all); member(select,lvs,=,15); subevent(resetvp,); nextmem(); end; endif;
#evflag(*selected,==,0); if(nowres); formem(party); member(select,lvs,=,25); nextmem(); goto(1); endif;
#evflag(*selected,==,2); if(nowres); formem(party); member(select,lvs,=,27); nextmem(); goto(1); endif;
#end;
#label(1); text(1,,ύX܂B);


<update_changelvs>
select(+オՂiftHgj(id=0,com=ftHg̐ݒB));
select(+ʁH(id=1,com=iʂɂȂ܂łR{퓬KvB));
select(+オ(id=2,com=iʂɂȂ܂łX{퓬KvB\nꂭ炢ŒxQ[炵ȂH));
#formem(party); member(select,lvs,==,27); nextmem(exis); if(nowres); select(+ᑬî݁j(id=0)); else; select(+ᑬî݁j(en=0)); endif;
#formem(all); member(select,lvs,==,27); nextmem(exis); if(nowres); select(+ᑬiO܂ށj(id=1)); else; select(+ᑬiO܂ށj(en=0)); endif;
#formem(party); member(select,lvs,!=,27); nextmem(exis); if(nowres); select(+ɖ߂î݁j(id=2)); else; select(+ɖ߂î݁j(en=0)); endif;
#formem(all); member(select,lvs,!=,27); nextmem(exis); if(nowres); select(+ɖ߂iO܂ށj(id=3)); else; select(+ɖ߂iO܂ށj(en=0)); endif;
#select(+ύXȂ);
#select(*iʁixj㏸xύXB\nixオ߂ĕȂlpłB\nT͂܂j(cid=));
#member(*l,lvs,>=,27); if(nowres); select(/0); else; member(*l,lvs,>=,21); if(nowres); select(/1); else; select(/2); endif; endif;


#xAbv
<autlev>
text(1,face=uam,iʁixj𒲐ނ̋@\pł悤B\n%ct3ڂb͏oėI̒́wxƂɂ܂B%cd);
#evflagsw(ex_autlev,==,0); if(nowres); evflagsw(ex_autlev,=,1); text(1,face=uam,iʁixj𒲐ނ̋@\pł悤B\nڂ͏oėI̒́wxƂQƂĂB); endif;
select(*miixAbvj̎^蓮n\n%ct3ip[eBjSΏ\nftHǵuv%cd(cid=,udev=update_autlev,dnev=done_autlev));


<update_autlev>
#formem(party); member(select,subflg,!&,4); nextmem(exis); if(nowres);
formem(party); member(select,subflg,!&,4); nextmem(exis); select(+iʁ{P(id=0,en=*nowres));
formem(party); member(select,subflg,!&,4); nextmem(exis); select(+iʁ{PO(id=1,en=*nowres));
formem(party); member(select,subflg,!&,4); nextmem(exis); select(+iʁ|P(id=2,en=*nowres));
formem(party); member(select,subflg,!&,4); nextmem(exis); select(+iʁ|PO(id=3,en=*nowres));
#endif;
formem(party); member(select,subflg,&,4); nextmem(exis); select(+蓮î݁j(id=5,en=*nowres));
formem(all); member(select,subflg,&,4); nextmem(exis); select(+蓮iO܂ށj(id=6,en=*nowres));
formem(party); member(select,subflg,!&,4); nextmem(exis); select(+î݁j(id=7,en=*nowres));
formem(all); member(select,subflg,!&,4); nextmem(exis); select(+iO܂ށj(id=8,en=*nowres));
#formem(party); member(select,subflg,&,4); nextmem(exis); select(+蓮î݁j(id=4,en=*nowres));
#formem(all); member(select,subflg,&,4); nextmem(exis); select(+蓮iO܂ށj(id=5,en=*nowres));
#formem(party); member(select,subflg,!&,4); nextmem(exis); select(+î݁j(id=6,en=*nowres));
#formem(all); member(select,subflg,!&,4); nextmem(exis); select(+iO܂ށj(id=7,en=*nowres));
select(+o[ʂŐݒ(id=10));
formem(party); member(select,status,mvp,encd,); member(select,pcond,vp,!=,evf(nowval)); and; member(select,pcond,cond,,==,0); nextmem(exis); select(+cuoőuo(id=11,en=*nowres));
select(+(ic=question,id=12));
#select(+(ic=close));


<done_autlev>
evflag(*selected,==,0); if(nowres); evtext(subtx1,=,*); formem(party); member(select,subflg,!&,4); if(nowres); member(select,exp,>=,L+1); if(nowres); member(select,level,+=,1); sound(warp); evtext(subtx1,*=,*%mem[s]͒i%ev[*nowval]ɃAbvI); else; evtext(subtx1,*=,*%mem[s]͌olsI); endif; else; evtext(subtx1,*=,*%mem[s]͎iɂȂĂB); endif; nextmem(); text(0,%str[*subtx1]); goto(1); endif;
evflag(*selected,==,1); if(nowres); evtext(subtx1,=,*); formem(party); member(select,subflg,!&,4); if(nowres); member(select,exp,>=,L+10); if(nowres); member(select,level,+=,10); sound(warp); evtext(subtx1,*=,*%mem[s]͒i%ev[*nowval]ɃAbvI); else; evtext(subtx1,*=,*%mem[s]͌olsI); endif; else; evtext(subtx1,*=,*%mem[s]͎iɂȂĂB); endif; nextmem(); text(0,%str[*subtx1]); goto(1); endif;
evflag(*selected,==,2); if(nowres); evtext(subtx1,=,*); formem(party); member(select,subflg,!&,4); if(nowres); member(select,level,>,0); if(nowres); member(select,level,+=,-1); sound(drop); evtext(subtx1,*=,*%mem[s]͒i%ev[*nowval]Ƀ_EB); else; evtext(subtx1,*=,*%mem[s]̒iʂ͂OI); endif; else; evtext(subtx1,*=,*%mem[s]͎iɂȂĂB); endif; nextmem(); text(0,%str[*subtx1]); goto(1); endif;
evflag(*selected,==,3); if(nowres); evtext(subtx1,=,*); formem(party); member(select,subflg,!&,4); if(nowres); member(select,level,>=,10); if(nowres); member(select,level,+=,-10); sound(drop); evtext(subtx1,*=,*%mem[s]͒i%ev[*nowval]Ƀ_EB); else; evtext(subtx1,*=,*%mem[s]̒iʂ͂POI); endif; else; evtext(subtx1,*=,*%mem[s]͎iɂȂĂB); endif; nextmem(); text(0,%str[*subtx1]); goto(1); endif;
evflag(*selected,==,5); if(nowres); formem(party); member(select,subflg,&=~,4); nextmem(); goto(1); endif;
evflag(*selected,==,6); if(nowres); formem(all); member(select,subflg,&=~,4); nextmem(); goto(1); endif;
evflag(*selected,==,7); if(nowres); formem(party); member(select,subflg,|=,4); nextmem(); goto(1); endif;
evflag(*selected,==,8); if(nowres); formem(all); member(select,subflg,|=,4); nextmem(); goto(1); endif;
#text(0,%mem[s]̒iʂ͂%ev[*nowval].wI);

evflag(*selected,==,10); if(nowres);
while; memslcbox(party:autlvup,min,,,2); if(nowres); subevent(autlevmem,); next; wend;
endif; goto(1);
#while;
#memslcbox(party:*autlvup,mînm^neen,,,2); if(nowres);
#member(select,subflg,&,4); if(nowres); member(select,subflg,&=~,4);  text(1,,%mem[s]͎蓮iɂȂB); else; member(select,subflg,|=,4); text(1,,%mem[s]͎iɖ߂B); endif;
#next; wend;
#endif; next;
endif;

evflag(*selected,==,11); if(nowres); formem(party); subevent(resetvp,); nextmem(); text(1,,cuoőuoɂȂI); goto(1); endif;

#evflag(*selected,==,9); if(nowres); text(1,,ł́Aolɒiʁixj茳ɖ߂Ƃł܂B̋@\gɂ͂܂w蓮xI܂Bɖ߂ɂ́wxI܂Bʏ́AolȏɂȂƎŒiʂオčs܂A̎xAbv֎~A蓮ōs悤ɂAƂӖłBTȂǂ͗L܂B); goto(1); endif;
evflag(*selected,==,12); if(nowres); text(1,,ʏ́AoȏɂȂƎŒiʁixjオčs܂A蓮ōs悤ɂƂ㋉Ҍ(H)̋@\łBw%ct2oɒiʂꎞIɉ%cdxƂł܂BTȂǂ͗L܂B\riʂꍇ́A܂́w%ct2蓮%cdxIĂB́w%ct2iʁ|P%cdxI鎖ŒiʂPAw%ct2iʁ|PO%cdxI鎖ŒiʂPO܂Bcuoőuo𒴂ԂɂȂ͎̂dlłAw%ct2cuoőuo%cdxI鎖ŁAőuo܂ŉ܂B\r蓮ԂɂĂƁẢƂ̗①ɂłiʂ̏~\ɂȂ܂i킴킴ɖ߂ԂȂ܂jB); goto(1); endif;
#B^蓮̐؂ւ͂ł̂݉\ƂȂĂ܂
#܂A蓮ɂԂł́ẢƂ̗①ɂłiʂ̏~\ɂȂ܂i킴킴ɖ߂ԂȂ܂jB
#ZK̕\̓T{Ă܂܂񂪁Ax̋Z͂Ɗo܂B

select(close); end;
label(1); select(update);


#xAbviʁj
<autlevmem>
member(select,subflg,&,4); if(nowres); member(select,subflg,&=~,4); text(1,,%mem[s]͎蓮iɂȂB); endif;

select(*%mem[s]̏i(cid=,udev=update_autlevmem,dnev=done_autlevmem));
evflag(instant2,=,evf(*selected));


<update_autlevmem>
#select(reset,all);
#member(select,subflg,&,4); unif(nowres);
select(+iʁ{P(id=0));
select(+iʁ{PO(id=1));
select(+iʁ|P(id=2));
select(+iʁ|PO(id=3));
select(+ɖ߂(id=4));
#else; select(+蓮(id=5)); endif;
select(/evf(instant2));
#select(+(ic=close));


<done_autlevmem>
evflag(*selected,==,0); if(nowres); member(select,exp,>=,L+1); if(nowres); member(select,level,+=,1); sound(warp); text(0,%mem[s]͒i%ev[*nowval]ɃAbvI); else; text(0,%mem[s]͌olsI); endif; goto(1); endif;
evflag(*selected,==,1); if(nowres); member(select,exp,>=,L+10); if(nowres); member(select,level,+=,10); sound(warp); text(0,%mem[s]͒i%ev[*nowval]ɃAbvI); else; text(0,%mem[s]͌olsI); endif; goto(1); endif;
evflag(*selected,==,2); if(nowres); member(select,level,>,0); if(nowres); member(select,level,+=,-1); sound(drop); text(0,%mem[s]͒i%ev[*nowval]Ƀ_EB); else; text(0,%mem[s]̒iʂ͂OI); endif; goto(1); endif;
evflag(*selected,==,3); if(nowres); member(select,level,>=,10); if(nowres); member(select,level,+=,-10); sound(drop); text(0,%mem[s]͒i%ev[*nowval]Ƀ_EB); else; text(0,%mem[s]̒iʂ͂POI); endif; goto(1); endif;
evflag(*selected,==,4); if(nowres); member(select,subflg,|=,4); text(1,,%mem[s]͎iɖ߂B); select(close); end; endif;
#evflag(*selected,==,5); if(nowres); member(select,subflg,&=~,4); text(1,,%mem[s]͎蓮iɂȂB); goto(1); endif;
select(close); end;
label(1); select(update);


<autlevsub>
#formem(party); member(select,subflg,!&,4); nextmem(exis); unif(nowres); text(1,face=uam,ł͏i蓮ɂĂꍇɁAiʂ̏~ł悤B); end; endif;
formem(party); member(select,subflg,!&,4); nextmem(exis); unif(nowres); text(1,face=uam,①ɂB); end; endif;
#①ɂ̂悤B
#text(1,face=uam,①ɂB);
#text(1,face=uam,{ȊO̗①ɂɂ͓ȋ@\͖悤B);

select(*miʂ̏~n(cid=,udev=update_autlevsub,dnev=done_autlev));


<update_autlevsub>
select(+iʁ{P(id=0));
select(+iʁ{PO(id=1));
select(+iʁ|P(id=2));
select(+iʁ|PO(id=3));
#select(+(ic=close));


<timerres>
text(1,,QObo߂B);

#timerR}h
#p[^Fʃxitimer.txtŎwB݂ɃxقȂ^C}[͓Ɨғj
#p[^FԂɔCxgi}bvCxgw肵ꍇA}bv؂ւƎB
#	*countw肵ꍇAcJE^[𑀍A*stopw肵ꍇAꎞ~̂nm^neeA*exisw肵ꍇA݊mFB*resetw肵ꍇA^C}[B
#	*count*stoṕA^C}[݂ȂꍇAn͖An͖`j
#Op[^F[h
#	+1Fiړpj퓬ʏEFCg܂߂Ȃ
#	+2FiړpjEChE\܂߂Ȃ
#	+4Fct[i{VXeł́Z`bj\
#	+8Fc~b\i{VXeł͍ŉɂOj
#	+12Fcb\
#lp[^F^C}[JEgibPʁj
#
#ړƐ퓬͓ƗB퓬͐̕퓬IŔjB


<wk_e>
fc(*actor,walk,0,8,1,0,); return;
#fc(walk,*actor,0,8,1,0,0); return;


<wk_w>
fc(*actor,walk,0,8,-1,0,); return;
#fc(walk,*actor,0,8,-1,0,1); return;


<wk_s>
fc(*actor,walk,0,8,0,1,); return;
#fc(walk,*actor,0,8,0,1,2); return;


<wk_n>
fc(*actor,walk,0,8,0,-1,); return;
#fc(walk,*actor,0,8,0,-1,3); return;


<wk_fr>
fc(*actor,walk,1,8,1,0,); return;
#fc(walk,*actor,1,8,1,0,0); return;


<wk_bk>
fc(*actor,walk,1,8,-1,0,); return;
#fc(walk,*actor,1,8,-1,0,1); return;


<wk_rt>
fc(*actor,walk,1,8,0,1,); return;
#fc(walk,*actor,1,8,0,1,2); return;


<wk_lt>
fc(*actor,walk,1,8,0,-1,); return;
#fc(walk,*actor,1,8,0,-1,3); return;




#ꎫT
<book_kokugo>
#evflag(*phase,==,id(phase:btl)); if(nowres); subevent(changebtm,); end; endif;
text(1,,ςĂB);


#aT
<book_kanji>
select2(reset,pos);
while;
select2(reset,list);
select2(+(id=0));
select2(+(id=1));
select2(+\(id=2));
select2(+(id=3));
select2(+F(id=4));
#select2(+(ic=close));
select2(*maTn(cid=));
#text(1,,̓}Vۂ炵B);

evflag(*selected,==,0); if(nowres); text(1,,ւ̃}Vۂ炵B); next; endif;
evflag(*selected,==,1); if(nowres); text(1,,т䂩琶т̌Ălqۂ炵B); next; endif;
evflag(*selected,==,2); if(nowres); text(1,,Ȃۂ̂ŁAď炵B); next; endif;
evflag(*selected,==,3); if(nowres); text(1,,XZNVAȐ藧̂悤B); next; endif;
evflag(*selected,==,4); if(nowres); text(1,,ƂĂZNVAȐ藧̂悤B); next; endif;

wend;


#}
<book_zukan>
select2(reset,pos);
while;
select2(reset,list);
select2(+nlY~(id=0));
select2(+g(id=1));
select2(+}JKV(id=2));
select2(+Ec{(id=3));
select2(+`E`ARE(id=4));
#select2(+(ic=close));
select2(*m}Ӂn(cid=));

evflag(*selected,==,0); if(nowres); image(0,set, picture:nlY~,0,0,170,90,0,,,,); image(0,scl, 0,0,16,0,0,); wait(16); image(0,scl, 0,0,0,0,0,); wait(-1); image(0,scl, 0,0,-16,0,0,); wait(16); image(0,set,); next; endif;
evflag(*selected,==,1); if(nowres); image(0,set, picture:g,0,0,170,90,0,1960,,,); image(0,scl, 0,0,16,-60,,); wait(16); image(0,scl, 0,0,0,0,0,); wait(-1); image(0,scl, 0,0,-16,0,0,); wait(16); image(0,set,); next; endif;
evflag(*selected,==,2); if(nowres); image(0,set, picture:}JKV,0,0,170,90,0,,1960,,); image(0,scl, 0,0,16,,-60,); wait(16); image(0,scl, 0,0,0,0,0,); wait(-1); image(0,scl, 0,0,-16,0,0,); wait(16); image(0,set,); next; endif;
evflag(*selected,==,3); if(nowres); image(0,set, picture:Ec{,0,0,170,90,0,,,-16,); image(0,scl, 0,0,16,,,1); wait(16); image(0,scl, 0,0,0,0,0,); wait(-1); image(0,scl, 0,0,-16,0,0,); wait(16); image(0,set,); next; endif;
#evflag(*selected,==,4); if(nowres); image(0,set, picture:`E`ARE,0,0,170,90,0,,,16,); image(0,scl, 0,0,16,,,-1); wait(16); image(0,scl, 0,0,0,0,0,); wait(-1); image(0,scl, 0,0,-16,0,0,); wait(16); image(0,set,); next; endif;
evflag(*selected,==,4); if(nowres); image(0,set, picture:`E`ARE,0,0,170,90,0,520,520,32,); image(0,scl, 0,0,16,30,30,-2); wait(16); image(0,scl, 0,0,0,0,0,); wait(-1); image(0,scl, 0,0,-16,0,0,); wait(16); image(0,set,); next; endif;

wend;

#image(0,set, nlY~.bmp,0,0,,,,0,0,0,,); image(0,scl, 0,0,8,0,0); wait(32); wait(-1);
#fade(out,fade,000000,255,16); image(0,set, zukan.bmp,0,0,,); fade(in,fade,000000,255,16); wait(-1);
#evflag(*phase,==,id(phase:btl)); if(nowres); text(1,face=+evbch,%mem[b]uEEEEE킢ɏW悤v); else; text(1,face=+head,%mem[h]uEEEEEv); endif;
#image(0,scl, 0,0,-8,0,0); wait(32); image(0,set,);
#fade(out,fade,000000,255,16); image(0,set,); fade(in,fade,000000,255,16);

#evflag(*phase,==,*phase:field); if(nowres); text(0,͈ړ); endif;
#evflag(*phase,==,id(phase:btl)); if(nowres); text(0,͐퓬); endif;


#SȎT
<book_hyakka>
select2(reset,pos);
while;
select2(reset,list);
select2(+ꎫT̋@\(id=0));
select2(+aT̋@\(id=1));
select2(+}ӂ̋@\(id=2));
select2(*mSȎTn(cid=));

evflag(*selected,==,0); if(nowres); subevent(book_kokugo,); next; endif;
evflag(*selected,==,1); if(nowres); subevent(book_kanji,); next; endif;
evflag(*selected,==,2); if(nowres); subevent(book_zukan,); next; endif;
wend;


#G
<zattamemo>
while;
select(*mGn(cid=,y=32,cols=2,commaxc=60,udev=update_zattamemo,dnev=done_zattamemo));
#select(*mGn(cid=,y=32,cols=2,commaxc=80,mincolw=16,udev=update_zattamemo,dnev=done_zattamemo));
#,x=128
#evflag(*selected,==,-2); if(nowres); subevent(ending,); next; endif;
wend;


#GXV
<update_zattamemo>
select(adddtp,dtp,item,); select(setcomment,,+=,*肷Ɠo^B);
#Rv͈ꉞ\ǓTB
select(adddtp,dtp,skill,); select(setcomment,,+=,*o͓GgƓo^B);
select(adddtp,dtp,job,);
select(adddtp,dtp,jbtype,);
select(adddtp,dtp,cond,);
select(adddtp,dtp,elem,);
select(adddtp,dtp,member,); select(setname,,=,*); evflag(*phase,==,id(phase:btl)); if(nowres); not; btchdmg(&,Ԕ\); select(setenable,,nowres); endif;
if(evf(*sw:pr_honpen)!=0); select(adddtp,dtp,party,); else; select(+HHH(en=0,id=dtp:party)); endif;
select(adddtp,dtp,stat,);
select(adddtp,dtp,cdp,);
select(adddtp,dtp,eqtype,);
#select(adddtp,dtp,icon,); select(setcomment,,+=,*\ƒǉB);
#if(evf(*sw:pr_honpen)!=0); select(adddtp,dtp,fchpic,); select(setcomment,,+=,*\ƒǉB); else; select(+HHH(en=0,id=dtp:fchpic)); endif;
#zukan(item:*all,&,(mchecker,mcheckerex)); if(nowres); select(adddtp,dtp,bchpic,); select(setcomment,,+=,*\ƒǉB[Vn͒r[ȊɂȂĂ܂Ă܂̂ŁAƌꍇ́w%it[*mchecker].nmicxpB); item(check:eq,mchecker,1); or; item(check:eq,mcheckerex,1); select(setenable,,nowres); else; select(+HHH(en=0,id=dtp:bchpic)); endif;
#evflagsw(pr_dfmoon,==,1);
#Ԃ̍s摜͖wǂ̂̂łcBi{ɂ́w%it[*mchecker].nmicxKvj
#if(evf(*sw:pr_honpen)!=0); select(adddtp,dtp,face,); select(setcomment,,+=,*\ƒǉB); else; select(+HHH(en=0,id=dtp:face)); endif;
#select(adddtp,dtp,cursor,); select(setcomment,,+=,*\ƒǉB);
#select(adddtp,dtp,frame,); select(setcomment,,+=,*\ƒǉB);
#if(evf(enzyj) != 0); if(evf(*sw:pr_bnyj-a4)!=0); select(adddtp,dtp,picture,); select(setcomment,,+=,*\ƒǉB); else; select(+HHH(en=0,id=dtp:picture)); endif; endif;
zukan(item:eishaki,==,1); if(nowres); select(adddtp,dtp,btf,); select(setcomment,,+=,*iỎ{̂݁j); else; select(+HHH(en=0,id=dtp:btf)); endif;
#item(check:eq,fʋ@,1);
#%it[*fʋ@]Ŏgpł
if(evf(*sw:pr_honpen)!=0); select(adddtp,dtp,effect,); select(setcomment,,+=,*iỎ{̂݁j); else; select(+HHH(en=0,id=dtp:effect)); endif;
#if(evf(*sw:pr_dfmoon)!=0); select(adddtp,dtp,efcpic,); else; select(+HHH(en=0,id=dtp:efcpic)); endif;
#GtFNgp摜̈ꗗBGtFNgɓ邩B
#select(adddtp,dtp,music,); select(setcomment,,+=,*iỎ{̂݁j);
#select(adddtp,dtp,sound,); select(setcomment,,+=,*iỎ{̂݁j);
if(evf(*sw:pr_honpen)!=0); select(adddtp,dtp,map,); select(setcomment,,+=,*iỎ{̂݁j); else; select(+HHH(en=0,id=dtp:map)); endif;
if(evf(*sw:pr_dfmoon)!=0); select(adddtp,dtp,enegr,); else; select(+HHH(en=0,id=dtp:enegr)); endif;
if(evf(*sw:pr_dfmoon)!=0); select(adddtp,dtp,act,); select(setcomment,,+=,*iỎ{̂݁j); else; select(+HHH(en=0,id=dtp:act)); endif;
if(evf(*sw:pr_dfmoon)!=0); select(adddtp,dtp,dtp,); else; select(+HHH(en=0,id=dtp:dtp)); endif;
select(adddtp,dtp,names,);
select(adddtp,dtp,blrgn,); select(setname,,=,*n`); select(setcomment,,+=,*iỎ{̂݁j);
select(adddtp,dtp,sysm,); select(setname,,=,*̗̑p);
#iʁixjƂB
if(evf(*sw:pr_honpen)!=0); select(+X^bt[(id=-2,ic=paper,com=GfBÕX^bt[܂B)); else; select(+HHH(en=0,id=-2)); endif;
#if(evf(*sw:pr_honpen)!=0); select(+dwCxgU(id=-3,ic=paper,com=dwCxg̍U󋵂mF܂B)); else; select(+HHH(en=0,id=-2)); endif;


#Gs
<done_zattamemo>
evflag(*selected,==,id(dtp:dtp)); if(nowres); zukan(dtp,ڃ^Cv,dspdetail=0); goto(1); endif;
evflag(*selected,==,id(dtp:item)); if(nowres); zukan(item,,); goto(1); endif;
evflag(*selected,==,id(dtp:skill)); if(nowres); zukan(skill,Z,); goto(1); endif;
evflag(*selected,==,id(dtp:job)); if(nowres); zukan(job,fvf̐,); goto(1); endif;
evflag(*selected,==,id(dtp:jbtype)); if(nowres); zukan(jbtype,fʂ̐,); goto(1); endif;
evflag(*selected,==,id(dtp:cond)); if(nowres); zukan(cond,Ԉُ̐,); goto(1); endif;
evflag(*selected,==,id(dtp:elem)); if(nowres); zukan(elem,̐,); goto(1); endif;
evflag(*selected,==,id(dtp:member)); if(nowres); zukan(member,SԂ̈ꗗ,); goto(1); endif;
evflag(*selected,==,id(dtp:party)); if(nowres); zukan(party,S̈ꗗ,); goto(1); endif;
evflag(*selected,==,id(dtp:stat)); if(nowres); zukan(stat,\l̐,); goto(1); endif;
evflag(*selected,==,id(dtp:cdp)); if(nowres); zukan(cdp,Ԓl̐,); goto(1); endif;
evflag(*selected,==,id(dtp:eqtype)); if(nowres); zukan(eqtype,ʂ̐,); goto(1); endif;
#evflag(*selected,==,id(dtp:icon)); if(nowres); zukan(icon,ACR,dspdetail=0); goto(1); endif;
#evflag(*selected,==,id(dtp:face)); if(nowres); zukan(face,Oꗗ,); goto(1); endif;
#evflag(*selected,==,id(dtp:fchpic)); if(nowres); zukan(fchpic,sOꗗ,); goto(1); endif;
#evflag(*selected,==,id(dtp:bchpic)); if(nowres); zukan(bchpic,퓬Oꗗ,); goto(1); endif;
#evflag(*selected,==,id(dtp:efcpic)); if(nowres); zukan(efcpic,ʃOꗗ,); goto(1); endif;
#evflag(*selected,==,id(dtp:cursor)); if(nowres); zukan(cursor,J[\ꗗ,); goto(1); endif;
#evflag(*selected,==,id(dtp:frame)); if(nowres); zukan(frame,t[ꗗ,); goto(1); endif;
#evflag(*selected,==,id(dtp:picture)); if(nowres); zukan(picture,sN`ꗗ,(mode=slcable,dnev=done_picturelist)); goto(1); endif;
evflag(*selected,==,id(dtp:btf)); if(nowres); zukan(btf,퓬wiꗗ,dspdetail=0); goto(1); endif;
evflag(*selected,==,id(dtp:effect)); if(nowres); zukan(effect,GtFNgꗗ,dspdetail=0); goto(1); endif;
#evflag(*selected,==,id(dtp:effect)); if(nowres); evflag(*phase,==,id(phase:btl)); if(nowres); zukan(effect,GtFNgꗗ,); else; while; zukan(effect:*select,GtFNgꗗ,initid=selected); if(nowres); feffect(*selected,,*actor,*actor,1); waiteffect; next; endif; wend; endif; next; endif;
evflag(*selected,==,id(dtp:music)); if(nowres); zukan(music,yꗗ,); goto(1); endif;
evflag(*selected,==,id(dtp:sound)); if(nowres); zukan(sound,TEhꗗ,); goto(1); endif;
evflag(*selected,==,id(dtp:map)); if(nowres); zukan(map,}bvꗗ,); goto(1); endif;
evflag(*selected,==,id(dtp:enegr)); if(nowres); zukan(enegr,GO[vꗗ,); goto(1); endif;
evflag(*selected,==,id(dtp:names)); if(nowres); zukan(names,Oވꗗ,dspdetail=0); goto(1); endif;
evflag(*selected,==,id(dtp:act)); if(nowres); zukan(act,摜ꗗ,dspdetail=0); goto(1); endif;
evflag(*selected,==,id(dtp:blrgn)); if(nowres); zukan(blrgn,n`ꗗ,dspdetail=0); goto(1); endif;
evflag(*selected,==,id(dtp:sysm)); if(nowres); zukan(sysm,̗̑p,dspdetail=0); goto(1); endif;
evflag(*selected,==,-2); if(nowres); evflag(*redrawiadlg,=,0); subevent(ending,); evflag(*redrawiadlg,=,1); goto(1); endif;
#evflag(*selected,==,-2); if(nowres); select(close); endif;
evflag(*selected,==,-3); if(nowres);
evtext(subtx1,=,*`Uς݂̂dwCxg`);
if(evf(*sw:pr_dfmoon)!=0); evtext(subtx1,+=,*\n%sysm[*ex-hyper].nmic); endif;
item(check:eq,ɒ,1); if(nowres); evtext(subtx1,+=,*\n%sysm[*ex-gcseis].nmic); endif;
evflagsw(pr_deckbr,==,1); if(nowres); evtext(subtx1,+=,*\n%sysm[*ex-deckbr].nmic); endif;
text(2,,%str[*subtx1]);
goto(1); endif;
select(close); end;
label(1); select(update);


#sN`ꗗs
<done_picturelist>
if(evf(*selected)>=0);
evflag(*redrawiadlg,=,0);
#mfade(0,ffffff,255);
#fade(out,(type=fade,color=ffffff,wait=1));
image(0,set, picture:*selected,,,,,,,,,);
#wait(-1)g@ł̓_CAO\ꂽ܂
#wait(-1); return;
text(2,dsp=0,);
#mfade(0,def,def);
#fade(in,(type=fade,color=ffffff,wait=1));
evflag(*redrawiadlg,=,1);
image(0,set,);
endif;


#W[N{bNX
<jukebox>
select(*m%it[*jukebox].nmicn(cid=,x=128,y=64,commaxc=40,udev=update_jukebox,dnev=done_jukebox));


<update_jukebox>
select(adddtp,dtp,music,); select(setname,,=,*y𕷂); select(setcomment,,=,*̂鉹y𕷂B);
select(adddtp,dtp,sound,); select(setname,,=,*TEh𕷂); select(setcomment,,=,*̂TEh𕷂B);
#select(+y𕷂(id=10,ic=onpu,com=̂鉹y𕷂B));
#select(+TEh𕷂(id=11,ic=onpu,com=̂TEh𕷂B));


<done_jukebox>
evflag(*selected,==,id(dtp:music)); if(nowres); zukan(music,y𕷂,(mode=slcable|nosound,cols=1,maxcolw=-1,dspdetail=0,dnev=done_jukebox_music)); goto(1); endif;
evflag(*selected,==,id(dtp:sound)); if(nowres); zukan(sound,TEh𕷂,(mode=slcable|nosound,dspdetail=0,dnev=done_jukebox_sound)); goto(1); endif;
select(close); end;
label(1); select(update);


<done_jukebox_music>
music(juke,=,*sv/evf(*selected));


<done_jukebox_sound>
sound(*selected);


#Ao
<album>
select(*m%it[*album].nmicn(cid=,x=128,y=64,commaxc=40,udev=update_album,dnev=done_album));


#AoXV
<update_album>
select(adddtp,dtp,icon,);
# select(setcomment,,+=,*\ƒǉB);
if(evf(*sw:pr_honpen)!=0); select(adddtp,dtp,fchpic,); else; select(+HHH(en=0,id=dtp:fchpic)); endif;
zukan(item:*all,&,(mchecker,mcheckerex)); if(nowres); select(adddtp,dtp,bchpic,); select(setcomment,,+=,*[Vn͒r[ȊɂȂĂ܂Ă܂̂ŁAƌꍇ́w%it[*mchecker].nmicxpB); item(check:eq,mchecker,1); or; item(check:eq,mcheckerex,1); select(setenable,,nowres); else; select(+HHH(en=0,id=dtp:bchpic)); endif;
#evflagsw(pr_dfmoon,==,1);
#Ԃ̍s摜͖wǂ̂̂łcBi{ɂ́w%it[*mchecker].nmicxKvj
if(evf(*sw:pr_dfmoon)!=0); select(adddtp,dtp,efcpic,); else; select(+HHH(en=0,id=dtp:efcpic)); endif;
if(evf(*sw:pr_honpen)!=0); select(adddtp,dtp,face,); else; select(+HHH(en=0,id=dtp:face)); endif;
select(adddtp,dtp,cursor,);
select(adddtp,dtp,frame,);
if(evf(*sw:pr_dfmoon)!=0); select(adddtp,dtp,picture,); else; select(+HHH(en=0,id=dtp:picture)); endif;
#if(evf(enzyj) != 0); if(evf(*sw:pr_bnyj-a4)!=0); select(adddtp,dtp,picture,); select(setcomment,,+=,*\ƒǉB); else; select(+HHH(en=0,id=dtp:picture)); endif; endif;
#if(evf(*sw:pr_bnyj-a4)!=0); select(adddtp,dtp,picture,); else; select(+HHH(en=0,id=dtp:picture)); endif;


#Aos
<done_album>
evflag(*selected,==,id(dtp:icon)); if(nowres); zukan(icon,ACRꗗ,dspdetail=0); goto(1); endif;
evflag(*selected,==,id(dtp:face)); if(nowres); zukan(face,Oꗗ,); goto(1); endif;
evflag(*selected,==,id(dtp:fchpic)); if(nowres); zukan(fchpic,sOꗗ,); goto(1); endif;
evflag(*selected,==,id(dtp:bchpic)); if(nowres); zukan(bchpic,퓬Oꗗ,); goto(1); endif;
evflag(*selected,==,id(dtp:efcpic)); if(nowres); zukan(efcpic,ʃOꗗ,); goto(1); endif;
evflag(*selected,==,id(dtp:cursor)); if(nowres); zukan(cursor,J[\ꗗ,); goto(1); endif;
evflag(*selected,==,id(dtp:frame)); if(nowres); zukan(frame,t[ꗗ,); goto(1); endif;
evflag(*selected,==,id(dtp:picture)); if(nowres); zukan(picture,sN`ꗗ,(mode=slcable,dnev=done_picturelist)); goto(1); endif;
select(close); end;
label(1); select(update);


#ip[
<naperzukan>
evarg(full);
not; item(check:eq,ip[,1); if(nowres); zukan(item:ip[,==,1); if(nowres); text(0,w%it[*ip[].nmicxĂȂB); else; text(0,̋@\͖gȂB); endif; end; endif;

#evflag(*selected,=,-1);
#while;
#image(0,set,); image(1,set,); image(2,set,); image(3,set,); image(4,set,);
#if(evf(*evarg:full)); zukan(enemy,ip[(ő摜\),(mode=slcable|dspall,initid=*selected,udev=update_naperzukan,dnev=done_naperzukan));
#else; 
#if(evf(*evarg:full)); evflag(*evarg:mode,=,itdlgmode2(slcable|dspall)); else; evflag(*evarg:mode,=,itdlgmode2(slcable)); endif;
zukan(enemy,ip[(ő摜\),(mode=*if(evf(*evarg:full),itdlgmode2(slcable|dspall),itdlgmode2(slcable)),initid=*selected,udev=update_naperzukan,dnev=done_naperzukan));
#endif;


<update_naperzukan>
#select(+eXgP(id=-100));
#select(+eXgQ(id=-101));


<done_naperzukan>
#\n%ct3jF%evd[*napul]%cd
if(evf(*selected)==id(enemy:napul));		image(0,set, picture:napul,0,0,256,136,,,,,);			endif;
if(evf(*selected)==id(enemy:garup));		image(0,set, picture:garup,0,0,256,136,,,,,);			endif;
if(evf(*selected)==id(enemy:nabirt));		image(0,set, picture:nabirt,0,0,256,136,,,,,);			endif;
if(evf(*selected)==id(enemy:napily));		image(0,set, picture:napily,0,0,256,136,,,,,);			endif;
if(evf(*selected)==id(enemy:gapara));		image(0,set, picture:gapara,0,0,256,136,,,,,);			endif;
if(evf(*selected)==id(enemy:shadagee));		image(0,set, picture:shadagee,0,0,256,136,,,,,);		endif;
if(evf(*selected)==id(enemy:alshada));		image(0,set, picture:alshada,0,0,256,136,,,,,);			endif;
if(evf(*selected)==id(enemy:pregener));		image(0,set, picture:pregener,0,0,256,136,,,,,);		endif;
if(evf(*selected)==id(enemy:wolzo));		image(0,set, picture:wolzo,0,0,256,136,,,,,);			endif;
if(evf(*selected)==id(enemy:galkan));		image(0,set, picture:galkan,0,0,256,136,,,,,);			endif;
if(evf(*selected)==id(enemy:pozgan));		image(0,set, picture:pozgan,0,0,256,136,,,,,);			endif;
if(evf(*selected)==id(enemy:regello));		image(0,set, picture:regello,0,0,256,136,,,,,);			endif;
if(evf(*selected)==id(enemy:lybirzo));		image(0,set, picture:lybirzo,0,0,256,136,,,,,);			endif;
if(evf(*selected)==id(enemy:gelfez));		image(0,set, picture:gelfez,0,0,256,136,,,,,);			endif;
if(evf(*selected)==id(enemy:tyupoke));		image(0,set, picture:tyupoke,0,0,256,136,,,,,);			endif;
if(evf(*selected)==id(enemy:twire));		image(0,set, picture:twire,0,0,256,200,,,,,);			endif;
if(evf(*selected)==id(enemy:bongen));		image(0,set, picture:bongen,0,0,256,136,,,,,);			endif;
if(evf(*selected)==id(enemy:boodogar));		image(0,set, picture:boodogar,0,0,256,136,,,,,);		endif;
if(evf(*selected)==id(enemy:garac));		image(0,set, picture:garac,0,0,256,136,,,,,);			endif;
if(evf(*selected)==id(enemy:wehi));		image(0,set, picture:wehi,0,0,256,136,,,,,);			endif;
if(evf(*selected)==id(enemy:antitwire));	image(0,set, picture:antitwire,0,0,256,200,,,,,);		endif;
if(evf(*selected)==id(enemy:nyamapoogi));	image(0,set, picture:nyamapoogi,0,0,256,136,,,,,);		endif;
if(evf(*selected)==id(enemy:medasorm));		image(0,set, picture:medasorm,0,0,288,200,,,,,);		endif;
if(evf(*selected)==id(enemy:killson));		image(0,set, picture:killson,0,0,256,136,,,,,);			endif;
if(evf(*selected)==id(enemy:napaler));		image(0,set, picture:napaler,0,0,256,136,,,,,);			endif;
if(evf(*selected)==id(enemy:garaper));		image(0,set, picture:garaper,0,0,256,136,,,,,);			endif;
if(evf(*selected)==id(enemy:nabatos));		image(0,set, picture:nabatos,0,0,256,136,,,,,);			endif;
if(evf(*selected)==id(enemy:napilite));		image(0,set, picture:napilite,0,0,256,136,,,,,);		endif;
if(evf(*selected)==id(enemy:gaprill));		image(0,set, picture:gaprill,0,0,256,136,,,,,);			endif;
if(evf(*selected)==id(enemy:pyalyash));		image(0,set, picture:pyalyash,0,0,256,136,,,,,);		endif;
if(evf(*selected)==id(enemy:galken));		image(0,set, picture:galken,0,0,256,136,,,,,);			endif;
if(evf(*selected)==id(enemy:gartyo));		image(0,set, picture:gartyo,0,0,256,136,,,,,);			endif;
if(evf(*selected)==id(enemy:ryavan));		image(0,set, picture:ryavan,0,0,256,136,,,,,);			endif;
if(evf(*selected)==id(enemy:groszkopf));	image(0,set, picture:groszkopf,0,0,256,136,,,,,);		endif;
if(evf(*selected)==id(enemy:regellgo));		image(0,set, picture:regellgo,0,0,256,136,,,,,);		endif;
if(evf(*selected)==id(enemy:lybirzel));		image(0,set, picture:lybirzel,0,0,256,136,,,,,);		endif;
if(evf(*selected)==id(enemy:belzan));		image(0,set, picture:belzan,0,0,256,136,,,,,);			endif;
if(evf(*selected)==id(enemy:munjege));		image(0,set, picture:munjege,0,0,256,136,,,,,);			endif;
if(evf(*selected)==id(enemy:weigy));		image(0,set, picture:weigy,0,0,256,136,,,,,);			endif;
if(evf(*selected)==id(enemy:benjairar));	image(0,set, picture:benjairar,0,0,256,136,,,,,);		endif;
if(evf(*selected)==id(enemy:doublame));		image(0,set, picture:doublame,0,0,256,136,,,,,);		endif;
if(evf(*selected)==id(enemy:syncerje));		image(0,set, picture:syncerje,0,0,256,136,,,,,);		endif;
if(evf(*selected)==id(enemy:dezmeed));		image(0,set, picture:dezmeed,0,0,256,136,,,,,);			endif;
if(evf(*selected)==id(enemy:yogeere));		image(0,set, picture:yogeere,0,0,256,136,,,,,);			endif;
if(evf(*selected)==id(enemy:pigmarg));		image(0,set, picture:pigmarg,0,0,256,200,,,,,);			endif;
if(evf(*selected)==id(enemy:steagral));		image(0,set, picture:steagral,0,0,224,72,,,,,);			endif;
if(evf(*selected)==id(enemy:tedsumari));	image(0,set, picture:tedsumari,0,0,224,72,,,,,);		endif;
if(evf(*selected)==id(enemy:bendogar));		image(0,set, picture:bendogar,0,0,256,136,,,,,);		endif;
if(evf(*selected)==id(enemy:garasorma));	image(0,set, picture:garasorma,0,0,256,136,,,,,);		endif;
if(evf(*selected)==id(enemy:nyamapregen));	image(0,set, picture:nyamapregen,0,0,192,136,,,,,);		endif;
if(evf(*selected)==id(enemy:gidasorm));		image(0,set, picture:gidasorm,0,0,288,200,,,,,);		endif;
if(evf(*selected)==id(enemy:funqame));		image(0,set, picture:funqame,0,0,256,136,,,,,);			endif;
if(evf(*selected)==id(enemy:napelest));		image(0,set, picture:napelest,0,0,256,136,,,,,);		endif;
if(evf(*selected)==id(enemy:garepest));		image(0,set, picture:garepest,0,0,256,136,,,,,);		endif;
if(evf(*selected)==id(enemy:nafatlus));		image(0,set, picture:nafatlus,0,0,256,136,,,,,);		endif;
if(evf(*selected)==id(enemy:napilaty));		image(0,set, picture:napilaty,0,0,256,136,,,,,);		endif;
if(evf(*selected)==id(enemy:gaprette));		image(0,set, picture:gaprette,0,0,256,136,,,,,);		endif;
if(evf(*selected)==id(enemy:dakyarmee));	image(0,set, picture:dakyarmee,0,0,256,136,,,,,);		endif;
if(evf(*selected)==id(enemy:pregenia));		image(0,set, picture:pregenia,0,0,256,136,,,,,);		endif;
if(evf(*selected)==id(enemy:wolzards));		image(0,set, picture:wolzards,0,0,256,136,,,,,);		endif;
if(evf(*selected)==id(enemy:galkin));		image(0,set, picture:galkin,0,0,256,136,,,,,);			endif;
if(evf(*selected)==id(enemy:pozgazn));		image(0,set, picture:pozgazn,0,0,256,136,,,,,);			endif;
if(evf(*selected)==id(enemy:wagurtyu));		image(0,set, picture:wagurtyu,0,0,256,136,,,,,);		endif;
if(evf(*selected)==id(enemy:ryuvzorm));		image(0,set, picture:ryuvzorm,0,0,256,136,,,,,);		endif;
if(evf(*selected)==id(enemy:yankeen));		image(0,set, picture:yankeen,0,0,256,136,,,,,);			endif;
if(evf(*selected)==id(enemy:regellgon));	image(0,set, picture:regellgon,0,0,256,136,,,,,);		endif;
if(evf(*selected)==id(enemy:lybirzelk));	image(0,set, picture:lybirzelk,0,0,256,136,,,,,);		endif;
if(evf(*selected)==id(enemy:rukanamu));		image(0,set, picture:rukanamu,0,0,256,136,,,,,);		endif;
if(evf(*selected)==id(enemy:umbot));		image(0,set, picture:umbot,0,0,256,136,,,,,);			endif;
if(evf(*selected)==id(enemy:gaogorg));		image(0,set, picture:gaogorg,0,0,256,136,,,,,);			endif;
if(evf(*selected)==id(enemy:qemizass));		image(0,set, picture:qemizass,0,0,256,136,,,,,);		endif;
if(evf(*selected)==id(enemy:chorma));		image(0,set, picture:chorma,0,0,256,136,,,,,);			endif;
if(evf(*selected)==id(enemy:rakatsu));		image(0,set, picture:rakatsu,0,0,256,136,,,,,);			endif;
if(evf(*selected)==id(enemy:tsannue));		image(0,set, picture:tsannue,0,0,256,136,,,,,);			endif;
if(evf(*selected)==id(enemy:rashuuzan));	image(0,set, picture:rashuuzan,0,0,256,136,,,,,);		endif;
if(evf(*selected)==id(enemy:garidrieni));	image(0,set, picture:garidrieni,0,0,256,136,,,,,);		endif;
if(evf(*selected)==id(enemy:idsuchi));		image(0,set, picture:idsuchi,0,0,256,136,,,,,);			endif;
if(evf(*selected)==id(enemy:zoclops));		image(0,set, picture:zoclops,0,0,256,136,,,,,);			endif;
if(evf(*selected)==id(enemy:napoluni));		image(0,set, picture:napoluni,0,0,272,120,,,,,);		endif;
if(evf(*selected)==id(enemy:garupade));		image(0,set, picture:garupade,0,0,256,136,,,,,);		endif;
if(evf(*selected)==id(enemy:golzem));		image(0,set, picture:golzem,0,0,256,136,,,,,);			endif;
if(evf(*selected)==id(enemy:shajep));		image(0,set, picture:shajep,0,0,256,136,,,,,);			endif;
if(evf(*selected)==id(enemy:valanorpa));	image(0,set, picture:valanorpa,0,0,192,8,,,,,);			image(1,set, picture:valanorpa-fld,0,0,448,200,,,,,);		endif;
if(evf(*selected)==id(enemy:mutou));		image(0,set, picture:mutou,0,0,192,8,,,,,);			image(1,set, picture:mutou-fld,0,0,448,200,,,,,);		endif;
if(evf(*selected)==id(enemy:boruv));		image(0,set, picture:boruv,0,0,256,136,,,,,);			image(1,set, picture:boruv-fld,0,0,384,136,,,,,);			endif;
if(evf(*selected)==id(enemy:demond));		image(0,set, picture:demond,0,0,256,136,,,,,);			image(1,set, picture:demond-fld,0,0,384,136,,,,,);			endif;
if(evf(*selected)==id(enemy:grpeng));		image(0,set, picture:grpeng,0,0,256,136,,,,,);			image(1,set, picture:grpeng-fld,0,0,384,136,,,,,);			endif;
if(evf(*selected)==id(enemy:devigry));		image(0,set, picture:devigry,0,0,256,136,,,,,);			image(1,set, picture:devigry-fld,0,0,384,136,,,,,);			endif;
if(evf(*selected)==id(enemy:maru));		image(0,set, picture:maru,0,0,288,200,,,,,);			image(1,set, picture:maru-fld,0,0,352,232,,,,,);		endif;
if(evf(*selected)==id(enemy:rkdns));		image(0,set, picture:rkdns,0,0,256,136,,,,,);			image(1,set, picture:rkdns-fld,0,0,384,200,,,,,);		endif;
if(evf(*selected)==id(enemy:shina));		image(0,set, picture:shina,0,0,256,136,,,,,);			image(1,set, picture:shina-fld,0,0,384,200,,,,,);		endif;
if(evf(*selected)==id(enemy:senksha));		image(0,set, picture:senksha,0,0,256,72,,,,,);			image(1,set, picture:senksha-fld,0,0,384,136,,,,,);			endif;
if(evf(*selected)==id(enemy:dhmo));		image(0,set, picture:dhmo,0,0,256,72,,,,,);			image(1,set, picture:dhmo-fld,0,0,384,136,,,,,);				endif;
if(evf(*selected)==id(enemy:coral));		image(0,set, picture:coral,0,0,192,8,,,,,);			image(1,set, picture:coral-fld,0,0,448,232,,,,,);		endif;
if(evf(*selected)==id(enemy:ikenaitsuki));	image(0,set, picture:ikenaitsuki,0,0,192,8,,,,,);		image(1,set, picture:ikenaitsuki-fld,0,0,448,200,,,,,);		endif;
if(evf(*selected)==id(enemy:jshina));		image(0,set, picture:jshina,0,0,256,136,,,,,);			image(1,set, picture:jshina-fld,0,0,384,200,,,,,);		endif;
if(evf(*selected)==id(enemy:senkshag));		image(0,set, picture:senkshag,0,0,251,72,,,,,);			image(1,set, picture:senkshag-fld,0,0,384,136,,,,,);			endif;
if(evf(*selected)==id(enemy:dhmopure));		image(0,set, picture:dhmopure,0,0,256,72,,,,,);			image(1,set, picture:dhmopure-fld,0,0,384,136,,,,,);			endif;
if(evf(*selected)==id(enemy:ikenai2));		image(0,set, picture:ikenai2,0,0,192,8,,,,,);			image(1,set, picture:ikenai2-fld,0,0,448,200,,,,,);		endif;

if(evf(*selected)==id(enemy:yj-a1));		image(0,set, picture:yj-a1,0,0,256,72,,,,,);			image(1,set, picture:yj-a1-fld,0,0,384,136,,,,,);			endif;
if(evf(*selected)==id(enemy:yj-b1));		image(0,set, picture:yj-b1,0,0,256,72,,,,,);			image(1,set, picture:yj-b1-fld,0,0,384,136,,,,,);			endif;
if(evf(*selected)==id(enemy:yj-c1));		image(0,set, picture:yj-c1,0,0,256,72,,,,,);			image(1,set, picture:yj-c1-fld,0,0,384,136,,,,,);			endif;
if(evf(*selected)==id(enemy:yj-a2));		image(0,set, picture:yj-a2,0,0,256,72,,,,,);			image(1,set, picture:yj-a2-fld,0,0,384,136,,,,,);			endif;
if(evf(*selected)==id(enemy:yj-b2));		image(0,set, picture:yj-b2,0,0,256,72,,,,,);			image(1,set, picture:yj-b2-fld,0,0,384,136,,,,,);			endif;
if(evf(*selected)==id(enemy:yj-c2));		image(0,set, picture:yj-c2,0,0,256,72,,,,,);			image(1,set, picture:yj-c2-fld,0,0,384,136,,,,,);			endif;
if(evf(*selected)==id(enemy:yj-a3));		image(0,set, picture:yj-a3,0,0,256,72,,,,,);			image(1,set, picture:yj-a3-fld,0,0,384,136,,,,,);			endif;
if(evf(*selected)==id(enemy:yj-b3));		image(0,set, picture:yj-b3,0,0,256,72,,,,,);			image(1,set, picture:yj-b3-fld,0,0,384,136,,,,,);			endif;
if(evf(*selected)==id(enemy:yj-c3));		image(0,set, picture:yj-c3,0,0,256,72,,,,,);			image(1,set, picture:yj-c3-fld,0,0,384,136,,,,,);			endif;
if(evf(*selected)==id(enemy:yj-a4));		image(0,set, picture:yj-a4,0,0,256,8,,,,,);			image(1,set, picture:yj-a4-fld,0,0,384,136,,,,,);		if(evc(picture,id(picture:yj-a4-pic)) != 0); image(2,set, picture:yj-a4-pic,0,0,0,8,,,,,8);endif; endif;
#if(evf(*selected)==id(enemy:yj-a4));		image(0,set, picture:yj-a4,0,0,256,8,,,,,);			image(1,set, picture:yj-a4-fld,0,0,384,136,,,,,);		if(evf(*sw:pr_bnyj-a4)!=0); image(2,set, picture:yj-a4-pic,0,0,0,8,,,,,8);endif; endif;
#if(evf(*selected)==id(enemy:yj-a4));		if(evf(*sw:pr_bnyj-a4)!=0); image(0,set, picture:yj-a4,0,0,256,8,,,,,); image(2,set, picture:yj-a4-pic,0,0,0,8,,,,8); else; image(0,set, picture:yj-a4,0,0,256,72,,,,,); endif; image(1,set, picture:yj-a4-fld,0,0,384,136,,,,,); endif;
# image(3,set, ../face/eXg`.bmp,192,0,64,64,00ff00,512,200,,,,,); image(4,set, ../face/eXg`.bmp,0,64,64,64,00ff00,576,200,,,,,);
#if(evf(*selected)==id(enemy:yj-a4));		if(evf(pr_crms)==1); image(0,set, picture:yj-a4,0,0,256,8,,,,,); else; image(0,set, picture:eXg`S(p).bmp,0,0,256,72,,,,,); endif; image(1,set, picture:yj-a4.bmp,0,0,384,136,,,,,); if(evf(*pw:pr_crms)==1); image(2,set, picture:eXg`S(C[W).bmp,0,0,0,8,,,,,); endif; evflagsw(pr_bnyj-a4,!=,0); if(nowres); image(3,set, ../face/eXg`.bmp,64,128,128,64,00ff00,512,200,,,,,); endif;	text(2,(face=yj-a4,ym=b),%ene[*yj-a4].full); next; endif;
#evflagsw(pr_crms2,==,1); if(nowres); text(2,(face=yj-a4-2,ym=b),%ene[*yj-a4].full); endif;
if(evf(*selected)==id(enemy:yj-a5));		image(0,set, picture:yj-a5,0,0,256,8,,,,,);			image(1,set, picture:yj-a5-fld,0,0,384,136,,,,,);		if(evf(*sw:pr_bnyj-a4)!=0&&evf(*sw:dspyj5img)==1); image(2,set, picture:yj-a5-pic,0,0,0,8,,,,,8); endif; endif;

if(evf(*selected)==id(enemy:metaele));		image(0,set, picture:metaele,0,0,256,136,,,,,);			image(1,set, picture:metaele-fld,0,0,384,200,,,,,);		endif;
if(evf(*selected)==id(enemy:hollele));		image(0,set, picture:hollele,0,0,256,136,,,,,);			image(1,set, picture:hollele-fld,0,0,384,200,,,,,);		endif;
if(evf(*selected)==id(enemy:mush));		image(0,set, picture:mush,0,0,256,136,,,,,);			image(1,set, picture:mush-fld,0,0,384,232,,,,,);		endif;
#if(evf(*selected)==id(enemy:mame));		image(0,set, picture:mame,0,0,96,00ff00,288,168,,,,,);		image(1,set, picture:mame-fld,0,0,352,200,,,,,);		endif;
if(evf(*selected)==id(enemy:mame));		image(0,set, picture:mame,0,0,256,136,,,,,);			image(1,set, picture:mame-fld,0,0,384,200,,,,,);		endif;
#if(evf(*selected)==id(enemy:mame-2));		image(0,set, picture:mame,0,0,96,00ff00,288,168,,,,,);		image(1,set, picture:mame-fld,0,0,352,200,,,,,);		endif;
if(evf(*selected)==id(enemy:mame-2));		image(0,set, picture:mame,0,0,256,136,,,,,);			image(1,set, picture:mame-fld,0,0,384,200,,,,,);		endif;

if(evf(*selected)>=0);
evflag(*redrawiadlg,=,0); text(2,(face=+slcenemy,ym=b),%ene[s].sn[*subname]w%ene[s].ic%rs%ene[s]%rc%ene[s].ruby%rex\n%ene[s].com); evflag(*redrawiadlg,=,1);
image(0,set,); image(1,set,); image(2,set,); image(3,set,); image(4,set,);
endif;
#evflag(*selected,>=,0); if(nowres); evflag(*redrawiadlg,=,0); text(2,(face=+slcenemy,ym=b),%ene[s].sn[*subname]w%ene[s].ic%rs%ene[s]%rc%ene[s].ruby%rex\n%ene[s].com); evflag(*redrawiadlg,=,1); next; endif;
#wend;

#select(close);


#ω̎
<henge>
not; item(check:eq,henge,1); if(nowres); zukan(item:henge,==,1); if(nowres); text(0,w%it[*henge].nmicxĂȂB); else; text(0,̋@\͖gȂB); endif; end; endif;

#ړ
unif(evf(*phase) == id(phase:btl));
#member(head,picset,fch,org:nrm,); evflag(instant1,=,evf(nowval));
#evflag(instant2,=,0);
member(head,picset,fch,org:nrm,); evflag(*selected,=,evf(nowval));
while;
select(*mϐgn(cid=,y=48,cols=2,mincolw=def,udev=update_henge,dnev=done_henge));

#evflag(instant1,=,evf(*selected)); 
if(evf(*selected) >= 0 || evf(*selected) == -2);
cleareffect;
#p[eBΏ
if(evf(hengetgm) == 0); formem(party); subevent(henge_sub(evf(*selected)),); nextmem(); end; endif;
#So[Ώ
if(evf(hengetgm) == 1); formem(all); subevent(henge_sub(evf(*selected)),); nextmem(); end; endif;
#Po[I
memslcbox(party,mϐgLn,,,2); if(nowres); subevent(henge_sub(evf(*selected)),); end; else; next; endif;
endif;
#evflag(*selected,==,-2); if(nowres); goto(0); endif;
#evflag(*selected,==,-3); if(nowres); formem(all);   feffect(star,,*slcmem,*slcmem,0);	member(select,resetpic,29); member(select,pcond, cond,,+=,ωp(-inf)); nextmem(); subevent(kigae,); end; endif;
#evflag(*selected,==,-3); if(nowres); formem(all);   feffect(star,,*slcmem,*slcmem,0);	member(select,picset,fch,org,,=,,);									member(select,picset,bch,org,=,,);																				member(select,picset,face,org,=,);			nextmem(); end; endif;
#evflag(*selected,==,52); if(nowres); subevent(resetvehipic,); end; endif;
#evflag(*selected,==,-3); if(nowres); evflag(hengetgm,+=,1); evflag(hengetgm,%=,3); next; endif;
#evflag(instant2,=,1); 
wend;

#fc(car_st,picset,fch,org:nrm,=,person1);
#fc(car_mv,picset,fch,org:nrm,=,person1);

#퓬
else;
bcslc(>,alv); bcmslc(3,1); if(nowres);
#text(0,eXgP);
beffect(star,1,*select,exi,*self,exi,,7,0);
#text(0,eXgQ);
bc(*self,,status,esc,all,); evflag(instant1,=,evf(nowval)); evflag(instant1,/=,2);
#text(0,eXgR);
#bc(*select,alv,fmt,==,>); and; 
bc(*select,,status,esc,all,<=,evf(instant1)); if(nowres);
#text(0,eXgS);
bc(*select,,picset,bch,org:nrm,!=,wtfairy-t); if(nowres);
bc(*select,,picset,bch,org,=,(nrm=wtfairy-t,snf=wtfairy-t-snf,kch=wtfairy-t-kch,dwf=wtfairy-t-dwf,act0=wtfairy-t-act0,dmg=wtfairy-t-dmg,rcv=wtfairy-t-rcv,grd=wtfairy-t-grd,atk0=wtfairy-t-atk0,rad0=wtfairy-t-rad0,atk2=wtfairy-t-atk2,rad2=wtfairy-t-rad2));
bc(*select,,picset,face,org,=,(nrm=wtfairy,snf=wtfairy-snf,kch=wtfairy-kch));
else;
bc(*select,,picset,bch,org,=,*reset);
bc(*select,,picset,face,org,=,*reset);
endif;
#text(0,eXgT);
endif;
endif;

endif;


<update_henge>
#select(+%fcp[*person1](id=fchpic:person1,ic=person1));
zukan(face:person1a,==,1);	if(nowres); select(adddtp,fchpic,person1a,); 						else; select(+HHH(en=0,id=-4)); endif;
zukan(face:person1b,==,1);	if(nowres); select(adddtp,fchpic,person1b,); 						else; select(+HHH(en=0,id=-4)); endif;
zukan(face:person2a,==,1);	if(nowres); select(adddtp,fchpic,person2a,); 						else; select(+HHH(en=0,id=-4)); endif;
zukan(face:person2b,==,1);	if(nowres); select(adddtp,fchpic,person2b,); 						else; select(+HHH(en=0,id=-4)); endif;
zukan(face:person3a,==,1);	if(nowres); select(adddtp,fchpic,person3a,); 						else; select(+HHH(en=0,id=-4)); endif;
zukan(face:person3b,==,1);	if(nowres); select(adddtp,fchpic,person3b,); 						else; select(+HHH(en=0,id=-4)); endif;
zukan(face:person4a,==,1);	if(nowres); select(adddtp,fchpic,person4a,); 						else; select(+HHH(en=0,id=-4)); endif;
zukan(face:person4b,==,1);	if(nowres); select(adddtp,fchpic,person4b,); 						else; select(+HHH(en=0,id=-4)); endif;
zukan(face:person5a,==,1);	if(nowres); select(adddtp,fchpic,person5a,); 						else; select(+HHH(en=0,id=-4)); endif;
zukan(face:person5b,==,1);	if(nowres); select(adddtp,fchpic,person5b,); 						else; select(+HHH(en=0,id=-4)); endif;
zukan(face:person6a,==,1);	if(nowres); select(adddtp,fchpic,person6a,); 						else; select(+HHH(en=0,id=-4)); endif;
zukan(face:person6b,==,1);	if(nowres); select(adddtp,fchpic,person6b,); 						else; select(+HHH(en=0,id=-4)); endif;
#zukan(enemy:*all,&,(mame,mame-2));
zukan(face:mame,==,1); 		if(nowres); select(adddtp,fchpic,mame,); select(setcomment,,=,*퓬Oω);	else; select(+HHH(en=0,id=-4)); endif;
zukan(face:shikyuu,==,1);	if(nowres); select(adddtp,fchpic,shikyuu,); 						else; select(+HHH(en=0,id=-4)); endif;
zukan(face:seiyu,==,1);		if(nowres); select(adddtp,fchpic,seiyu,);						else; select(+HHH(en=0,id=-4)); endif;
zukan(face:seiyu,==,1);		if(nowres); select(adddtp,fchpic,seiyu-2,);						else; select(+HHH(en=0,id=-4)); endif;
zukan(enemy:valanorpa,==,1);	if(nowres); select(adddtp,fchpic,valanorpa,);						else; select(+HHH(en=0,id=-4)); endif;
zukan(enemy:mutou,==,1);	if(nowres); select(adddtp,fchpic,mutou,);						else; select(+HHH(en=0,id=-4)); endif;
zukan(enemy:boruv,==,1);	if(nowres); select(adddtp,fchpic,boruv,);						else; select(+HHH(en=0,id=-4)); endif;
zukan(enemy:demond,==,1);	if(nowres); select(adddtp,fchpic,demond,);						else; select(+HHH(en=0,id=-4)); endif;
zukan(enemy:grpeng,==,1);	if(nowres); select(adddtp,fchpic,grpeng,);						else; select(+HHH(en=0,id=-4)); endif;
zukan(enemy:devigry,==,1);	if(nowres); select(adddtp,fchpic,devigry,);						else; select(+HHH(en=0,id=-4)); endif;
zukan(enemy:maru,==,1);		if(nowres); select(adddtp,fchpic,maru,);						else; select(+HHH(en=0,id=-4)); endif;
zukan(enemy:rkdns,==,1);	if(nowres); select(adddtp,fchpic,rkdns,);						else; select(+HHH(en=0,id=-4)); endif;
zukan(enemy:shina,==,1);	if(nowres); select(adddtp,fchpic,shina,);						else; select(+HHH(en=0,id=-4)); endif;
zukan(enemy:senksha,==,1);	if(nowres); select(adddtp,fchpic,senksha,);						else; select(+HHH(en=0,id=-4)); endif;
zukan(enemy:dhmo,==,1);		if(nowres); select(adddtp,fchpic,dhmo,);						else; select(+HHH(en=0,id=-4)); endif;
zukan(enemy:coral,==,1);	if(nowres); select(adddtp,fchpic,coral,);						else; select(+HHH(en=0,id=-4)); endif;
zukan(enemy:ikenaitsuki,==,1);	if(nowres); select(adddtp,fchpic,ikenaitsuki,);						else; select(+HHH(en=0,id=-4)); endif;
zukan(enemy:jshina,==,1);	if(nowres); select(adddtp,fchpic,jshina,);						else; select(+HHH(en=0,id=-4)); endif;
zukan(enemy:senkshag,==,1);	if(nowres); select(adddtp,fchpic,senkshag,);						else; select(+HHH(en=0,id=-4)); endif;
zukan(enemy:dhmopure,==,1);	if(nowres); select(adddtp,fchpic,dhmopure,);						else; select(+HHH(en=0,id=-4)); endif;
zukan(enemy:ikenai2,==,1);	if(nowres); select(adddtp,fchpic,ikenai2,);						else; select(+HHH(en=0,id=-4)); endif;
#evflagsw(aks,==,1); and; subevent(checkwt,); if(nowres);
if(evf(enzyj) != 0);
zukan(enemy:yj-a1,==,1);	if(nowres); select(adddtp,fchpic,yj-a1,);						else; select(+HHH(en=0,id=-4)); endif;
zukan(enemy:yj-b1,==,1);	if(nowres); select(adddtp,fchpic,yj-b1,);						else; select(+HHH(en=0,id=-4)); endif;
zukan(enemy:yj-c1,==,1);	if(nowres); select(adddtp,fchpic,yj-c1,);						else; select(+HHH(en=0,id=-4)); endif;
zukan(enemy:yj-a2,==,1);	if(nowres); select(adddtp,fchpic,yj-a2,);						else; select(+HHH(en=0,id=-4)); endif;
zukan(enemy:yj-b2,==,1);	if(nowres); select(adddtp,fchpic,yj-b2,);						else; select(+HHH(en=0,id=-4)); endif;
zukan(enemy:yj-c2,==,1);	if(nowres); select(adddtp,fchpic,yj-c2,);						else; select(+HHH(en=0,id=-4)); endif;
zukan(enemy:yj-a3,==,1);	if(nowres); select(adddtp,fchpic,yj-a3,);						else; select(+HHH(en=0,id=-4)); endif;
zukan(enemy:yj-b3,==,1);	if(nowres); select(adddtp,fchpic,yj-b3,);						else; select(+HHH(en=0,id=-4)); endif;
zukan(enemy:yj-c3,==,1);	if(nowres); select(adddtp,fchpic,yj-c3,);						else; select(+HHH(en=0,id=-4)); endif;
zukan(enemy:yj-a4,==,1);	if(nowres); select(adddtp,fchpic,yj-a4,);						else; select(+HHH(en=0,id=-4)); endif;
zukan(enemy:yj-a4,==,1);	if(nowres); select(adddtp,fchpic,yj-a4-ert,);						else; select(+HHH(en=0,id=-4)); endif;
#evflagsw(pr_crms2,==,1);	if(nowres); select(+ڍוs\{`|S\}EViGQj(id=41,ic=yj-a4));		else; select(+HHH(en=0,id=-4)); endif;
#evflagsw(pr_crms2,==,1);	if(nowres); select(+ڍוs\{`|S\}EsiGQj(id=42,ic=yj-a4));		else; select(+HHH(en=0,id=-4)); endif;
zukan(enemy:yj-a5,==,1);	if(nowres); select(adddtp,fchpic,yj-a5,);						endif;
zukan(enemy:yj-a5,==,1);	if(nowres); select(adddtp,fchpic,yj-a5-ert,);						endif;
endif;
zukan(enemy:metaele,==,1);	if(nowres); select(adddtp,fchpic,metaele,);						else; select(+HHH(en=0,id=-4)); endif;
zukan(enemy:hollele,==,1);	if(nowres); select(adddtp,fchpic,hollele,);						else; select(+HHH(en=0,id=-4)); endif;
zukan(item:,==,1);	if(nowres); item(check:eq,,1);	select(adddtp,fchpic,kokeshi,);	select(setenable,,nowres); 	else; select(+HHH(en=0,id=-4)); endif;
zukan(item:͂ɂ,==,1);	if(nowres); item(check:eq,͂ɂ,1);	select(adddtp,fchpic,haniwa,);	select(setenable,,nowres);	else; select(+HHH(en=0,id=-4)); endif;
zukan(item:sl`,==,1);	if(nowres); item(check:eq,sl`,1);	select(adddtp,fchpic,ichimaz,);	select(setenable,,nowres);	else; select(+HHH(en=0,id=-4)); endif;
zukan(item:_},==,1);	if(nowres); item(check:eq,_},1);	select(adddtp,fchpic,daruma,);	select(setenable,,nowres);	else; select(+HHH(en=0,id=-4)); endif;
zukan(item:L,==,1);	if(nowres); item(check:eq,L,1);	select(adddtp,fchpic,maneki,);	select(setenable,,nowres);	else; select(+HHH(en=0,id=-4)); endif;
zukan(item:,==,1);		if(nowres); item(check:eq,,1);	select(adddtp,fchpic,buzzou,);	select(setenable,,nowres);	else; select(+HHH(en=0,id=-4)); endif;
select(+߂(id=-2));
select(+ΏہF(id=-3));
evflag(hengetgm,==,0); if(nowres); select(setname,,+=,*S); else; evflag(hengetgm,==,1); if(nowres); select(setname,,+=,*ԑS); else; select(setname,,+=,*); endif; endif;
#evflag(instant2,==,1); if(nowres); select(/); endif;
#select(+߂iɋȂ҂܂ށj(id=-3));
#select(+蕨摜Zbgiیj(id=52));
#select(+(ic=close));
#while;
#label(0);
#select(/instant1);


<done_henge>
evflag(*selected,==,-3); if(nowres); evflag(hengetgm,+=,1); evflag(hengetgm,%=,3); select(update); end; endif;
select(close);


<henge_sub>
evarg(fchp);
#evflag(*selected,=,evf(instant1));
evflag(*selected,=,evf(*evarg:fchp));
evflag(*selected,==,id(fchpic:person1a));	if(nowres); feffect(star,,*slcmem,*slcmem,0);	member(select,picset,fch,org:nrm,!=,*selected); if(nowres); member(select,picset,fch,org,=,(nrm=person1a,snf=person1a-snf,kch=person1a-kch,ert=*none));		member(select,picset,bch,org,=,);																				member(select,picset,face,org,=,(nrm=person1a));			end; endif; endif;
#evflag(*selected,==,id(fchpic:person1c));	if(nowres); feffect(star,,*slcmem,*slcmem,0);	member(select,picset,fch,org:nrm,!=,*selected); if(nowres); member(select,picset,fch,org,=,(nrm=person1c,snf=person1c-snf,kch=person1c-kch,ert=*none));		member(select,picset,bch,org,=,);																				member(select,picset,face,org,=,(nrm=person1));				end; endif; endif;
evflag(*selected,==,id(fchpic:person1b));	if(nowres); feffect(star,,*slcmem,*slcmem,0);	member(select,picset,fch,org:nrm,!=,*selected); if(nowres); member(select,picset,fch,org,=,(nrm=person1b,snf=person1b-snf,kch=person1b-kch,ert=*none));		member(select,picset,bch,org,=,);																				member(select,picset,face,org,=,(nrm=person1b));			end; endif; endif;
#evflag(*selected,==,id(fchpic:person2c));	if(nowres); feffect(star,,*slcmem,*slcmem,0);	member(select,picset,fch,org:nrm,!=,*selected); if(nowres); member(select,picset,fch,org,=,(nrm=person2c,snf=person2c-snf,kch=person2c-kch,ert=*none));		member(select,picset,bch,org,=,);																				member(select,picset,face,org,=,(nrm=person1b));			end; endif; endif;
evflag(*selected,==,id(fchpic:person2a));	if(nowres); feffect(star,,*slcmem,*slcmem,0);	member(select,picset,fch,org:nrm,!=,*selected); if(nowres); member(select,picset,fch,org,=,(nrm=person2a,snf=person2a-snf,kch=person2a-kch,ert=*none));		member(select,picset,bch,org,=,);																				member(select,picset,face,org,=,(nrm=person2a));			end; endif; endif;
evflag(*selected,==,id(fchpic:person2b));	if(nowres); feffect(star,,*slcmem,*slcmem,0);	member(select,picset,fch,org:nrm,!=,*selected); if(nowres); member(select,picset,fch,org,=,(nrm=person2b,snf=person2b-snf,kch=person2b-kch,ert=*none));		member(select,picset,bch,org,=,);																				member(select,picset,face,org,=,(nrm=person2b));			end; endif; endif;
evflag(*selected,==,id(fchpic:person3a));	if(nowres); feffect(star,,*slcmem,*slcmem,0);	member(select,picset,fch,org:nrm,!=,*selected); if(nowres); member(select,picset,fch,org,=,(nrm=person3a,snf=person3a-snf,kch=person3a-kch,ert=*none));		member(select,picset,bch,org,=,);																				member(select,picset,face,org,=,(nrm=person3a));			end; endif; endif;
evflag(*selected,==,id(fchpic:person3b));	if(nowres); feffect(star,,*slcmem,*slcmem,0);	member(select,picset,fch,org:nrm,!=,*selected); if(nowres); member(select,picset,fch,org,=,(nrm=person3b,snf=person3b-snf,kch=person3b-kch,ert=*none));		member(select,picset,bch,org,=,);																				member(select,picset,face,org,=,(nrm=person3b));			end; endif; endif;
evflag(*selected,==,id(fchpic:person4a));	if(nowres); feffect(star,,*slcmem,*slcmem,0);	member(select,picset,fch,org:nrm,!=,*selected); if(nowres); member(select,picset,fch,org,=,(nrm=person4a,snf=person4a-snf,kch=person4a-kch,ert=*none));		member(select,picset,bch,org,=,);																				member(select,picset,face,org,=,(nrm=person4a));			end; endif; endif;
evflag(*selected,==,id(fchpic:person4b));	if(nowres); feffect(star,,*slcmem,*slcmem,0);	member(select,picset,fch,org:nrm,!=,*selected); if(nowres); member(select,picset,fch,org,=,(nrm=person4b,snf=person4b-snf,kch=person4b-kch,ert=*none));		member(select,picset,bch,org,=,);																				member(select,picset,face,org,=,(nrm=person4b));			end; endif; endif;
evflag(*selected,==,id(fchpic:person5a));	if(nowres); feffect(star,,*slcmem,*slcmem,0);	member(select,picset,fch,org:nrm,!=,*selected); if(nowres); member(select,picset,fch,org,=,(nrm=person5a,snf=person5a-snf,kch=person5a-kch,ert=*none));		member(select,picset,bch,org,=,);																				member(select,picset,face,org,=,(nrm=person5a));			end; endif; endif;
evflag(*selected,==,id(fchpic:person5b));	if(nowres); feffect(star,,*slcmem,*slcmem,0);	member(select,picset,fch,org:nrm,!=,*selected); if(nowres); member(select,picset,fch,org,=,(nrm=person5b,snf=person5b-snf,kch=person5b-kch,ert=*none));		member(select,picset,bch,org,=,);																				member(select,picset,face,org,=,(nrm=person5b));			end; endif; endif;
evflag(*selected,==,id(fchpic:person6a));	if(nowres); feffect(star,,*slcmem,*slcmem,0);	member(select,picset,fch,org:nrm,!=,*selected); if(nowres); member(select,picset,fch,org,=,(nrm=person6a,snf=person6a-snf,kch=person6a-kch,ert=*none));		member(select,picset,bch,org,=,);																				member(select,picset,face,org,=,(nrm=person6a));			end; endif; endif;
evflag(*selected,==,id(fchpic:person6b));	if(nowres); feffect(star,,*slcmem,*slcmem,0);	member(select,picset,fch,org:nrm,!=,*selected); if(nowres); member(select,picset,fch,org,=,(nrm=person6b,snf=person6b-snf,kch=person6b-kch,ert=*none));		member(select,picset,bch,org,=,);																				member(select,picset,face,org,=,(nrm=person6b));			end; endif; endif;
evflag(*selected,==,id(fchpic:mame));		if(nowres); feffect(star,,*slcmem,*slcmem,0);	member(select,picset,fch,org:nrm,!=,*selected); if(nowres); member(select,picset,fch,org,=,(nrm=mame,snf=mame-snf,kch=mame-kch,ert=*none));			member(select,picset,bch,org,=,(nrm=mame,snf=mame-snf,kch=mame-kch,dwf=mame-dwf,act0=mame-act0,dmg=mame-dmg,rcv=mame-rcv,grd=mame-grd,atk0=mame-atk,atk2=*none,rad0=mame-rad,rad2=*none));	member(select,picset,face,org,=,(nrm=mame,sri=mame-sri,sml=mame-sml));	end; endif; endif;
evflag(*selected,==,id(fchpic:valanorpa));	if(nowres); feffect(bubble,,*slcmem,*slcmem,0);	member(select,picset,fch,org:nrm,!=,*selected); if(nowres); member(select,picset,fch,org,=,(nrm=valanorpa,snf=vala-snf,kch=vala-kch,ert=*none));		member(select,picset,bch,org,=,);																				member(select,picset,face,org,=,(nrm=valanorpa));			end; endif; endif;
evflag(*selected,==,id(fchpic:mutou));		if(nowres); feffect(dfire,,*slcmem,*slcmem,0);	member(select,picset,fch,org:nrm,!=,*selected); if(nowres); member(select,picset,fch,org,=,(nrm=mutou,snf=mutou-snf,kch=mutou-kch,ert=*none));			member(select,picset,bch,org,=,);																				member(select,picset,face,org,=,(nrm=mutou));				end; endif; endif;
evflag(*selected,==,id(fchpic:boruv));		if(nowres); feffect(star,,*slcmem,*slcmem,0);	member(select,picset,fch,org:nrm,!=,*selected); if(nowres); member(select,picset,fch,org,=,(nrm=boruv,snf=boruv-snf,kch=boruv-kch,ert=*none));			member(select,picset,bch,org,=,);																				member(select,picset,face,org,=,(nrm=boruv));				end; endif; endif;
evflag(*selected,==,id(fchpic:demond));		if(nowres); feffect(dark,,*slcmem,*slcmem,0);	member(select,picset,fch,org:nrm,!=,*selected); if(nowres); member(select,picset,fch,org,=,(nrm=demond,snf=demond-snf,kch=demond-kch,ert=*none));		member(select,picset,bch,org,=,);																				member(select,picset,face,org,=,(nrm=demond));				end; endif; endif;
evflag(*selected,==,id(fchpic:grpeng));		if(nowres); feffect(fire,,*slcmem,*slcmem,0);	member(select,picset,fch,org:nrm,!=,*selected); if(nowres); member(select,picset,fch,org,=,(nrm=grpeng,snf=grpeng-snf,kch=grpeng-kch,ert=*none));		member(select,picset,bch,org,=,);																				member(select,picset,face,org,=,(nrm=grpeng));				end; endif; endif;
evflag(*selected,==,id(fchpic:devigry));	if(nowres); feffect(dark,,*slcmem,*slcmem,0);	member(select,picset,fch,org:nrm,!=,*selected); if(nowres); member(select,picset,fch,org,=,(nrm=devigry,snf=devigry-snf,kch=devigry-kch,ert=*none));		member(select,picset,bch,org,=,);																				member(select,picset,face,org,=,(nrm=devigry));				end; endif; endif;
evflag(*selected,==,id(fchpic:maru));		if(nowres); feffect(star2,,*slcmem,*slcmem,0);	member(select,picset,fch,org:nrm,!=,*selected); if(nowres); member(select,picset,fch,org,=,(nrm=maru,snf=maru-snf,kch=maru-kch,ert=*none));			member(select,picset,bch,org,=,);																				member(select,picset,face,org,=,(nrm=maru_m));				end; endif; endif;
evflag(*selected,==,id(fchpic:rkdns));		if(nowres); feffect(star2,,*slcmem,*slcmem,0);	member(select,picset,fch,org:nrm,!=,*selected); if(nowres); member(select,picset,fch,org,=,(nrm=rkdns,snf=rkdns-snf,kch=rkdns-kch,ert=*none));			member(select,picset,bch,org,=,);																				member(select,picset,face,org,=,(nrm=rkdns));				end; endif; endif;
evflag(*selected,==,id(fchpic:shina));		if(nowres); feffect(star2,,*slcmem,*slcmem,0);	member(select,picset,fch,org:nrm,!=,*selected); if(nowres); member(select,picset,fch,org,=,(nrm=shina,snf=shina-snf,kch=shina-kch,ert=*none));			member(select,picset,bch,org,=,);																				member(select,picset,face,org,=,(nrm=shina));				end; endif; endif;
evflag(*selected,==,id(fchpic:senksha));	if(nowres); feffect(poison,,*slcmem,*slcmem,0);	member(select,picset,fch,org:nrm,!=,*selected); if(nowres); member(select,picset,fch,org,=,(nrm=senksha,snf=senksha-snf,kch=senksha-kch,ert=*none));		member(select,picset,bch,org,=,);																				member(select,picset,face,org,=,(nrm=senksha));				end; endif; endif;
evflag(*selected,==,id(fchpic:dhmo));		if(nowres); feffect(star2,,*slcmem,*slcmem,0);	member(select,picset,fch,org:nrm,!=,*selected); if(nowres); member(select,picset,fch,org,=,(nrm=dhmo,snf=dhmo-snf,kch=dhmo-kch,ert=*none));			member(select,picset,bch,org,=,);																				member(select,picset,face,org,=,(nrm=dhmo));				end; endif; endif;
evflag(*selected,==,id(fchpic:coral));		if(nowres); feffect(star2,,*slcmem,*slcmem,0);	member(select,picset,fch,org:nrm,!=,*selected); if(nowres); member(select,picset,fch,org,=,(nrm=coral,snf=coral-snf,kch=coral-kch,ert=*none));			member(select,picset,bch,org,=,);																				member(select,picset,face,org,=,(nrm=coral));				end; endif; endif;
evflag(*selected,==,id(fchpic:ikenaitsuki))	;if(nowres); feffect(bomb3,,*slcmem,*slcmem,0);	member(select,picset,fch,org:nrm,!=,*selected); if(nowres); member(select,picset,fch,org,=,(nrm=ikenaitsuki,snf=ikenaitsuki-snf,kch=ikenaitsuki-kch,ert=*none));member(select,picset,bch,org,=,);																				member(select,picset,face,org,=,(nrm=ikenaitsuki));			end; endif; endif;
evflag(*selected,==,id(fchpic:jshina));		if(nowres); feffect(star2,,*slcmem,*slcmem,0);	member(select,picset,fch,org:nrm,!=,*selected); if(nowres); member(select,picset,fch,org,=,(nrm=jshina,snf=jshina-snf,kch=jshina-kch,ert=*none));		member(select,picset,bch,org,=,);																				member(select,picset,face,org,=,(nrm=jshina));				end; endif; endif;
evflag(*selected,==,id(fchpic:senkshag));	if(nowres); feffect(poison,,*slcmem,*slcmem,0);	member(select,picset,fch,org:nrm,!=,*selected); if(nowres); member(select,picset,fch,org,=,(nrm=senkshag,snf=senkshag-snf,kch=senkshag-kch,ert=*none));		member(select,picset,bch,org,=,);																				member(select,picset,face,org,=,(nrm=senkshag));			end; endif; endif;
evflag(*selected,==,id(fchpic:dhmopure));	if(nowres); feffect(star2,,*slcmem,*slcmem,0);	member(select,picset,fch,org:nrm,!=,*selected); if(nowres); member(select,picset,fch,org,=,(nrm=dhmopure,snf=dhmopure-snf,kch=dhmopure-kch,ert=*none));		member(select,picset,bch,org,=,);																				member(select,picset,face,org,=,(nrm=dhmopure));			end; endif; endif;
evflag(*selected,==,id(fchpic:ikenai2));	if(nowres); feffect(bomb3,,*slcmem,*slcmem,0);	member(select,picset,fch,org:nrm,!=,*selected); if(nowres); member(select,picset,fch,org,=,(nrm=ikenai2,snf=ikenai2-snf,kch=ikenai2-kch,ert=*none));		member(select,picset,bch,org,=,);																				member(select,picset,face,org,=,(nrm=ikenai2));				end; endif; endif;
evflag(*selected,==,id(fchpic:yj-a1));		if(nowres); feffect(heart,,*slcmem,*slcmem,0);	member(select,picset,fch,org:nrm,!=,*selected); if(nowres); member(select,picset,fch,org,=,(nrm=yj-a1,snf=yj-a1-snf,kch=yj-a1-kch,ert=*none));			member(select,picset,bch,org,=,);																				member(select,picset,face,org,=,(nrm=yj-a1));				end; endif; endif;
evflag(*selected,==,id(fchpic:yj-b1));		if(nowres); feffect(heart,,*slcmem,*slcmem,0);	member(select,picset,fch,org:nrm,!=,*selected); if(nowres); member(select,picset,fch,org,=,(nrm=yj-b1,snf=yj-b1-snf,kch=yj-b1-kch,ert=*none));			member(select,picset,bch,org,=,);																				member(select,picset,face,org,=,(nrm=yj-b1));				end; endif; endif;
evflag(*selected,==,id(fchpic:yj-c1));		if(nowres); feffect(dheart,,*slcmem,*slcmem,0);	member(select,picset,fch,org:nrm,!=,*selected); if(nowres); member(select,picset,fch,org,=,(nrm=yj-c1,snf=yj-c1-snf,kch=yj-c1-kch,ert=*none));			member(select,picset,bch,org,=,);																				member(select,picset,face,org,=,(nrm=yj-c1));				end; endif; endif;
evflag(*selected,==,id(fchpic:yj-a2));		if(nowres); feffect(heart,,*slcmem,*slcmem,0);	member(select,picset,fch,org:nrm,!=,*selected); if(nowres); member(select,picset,fch,org,=,(nrm=yj-a2,snf=yj-a2-snf,kch=yj-a2-kch,ert=*none));			member(select,picset,bch,org,=,);																				member(select,picset,face,org,=,(nrm=yj-a2));				end; endif; endif;
evflag(*selected,==,id(fchpic:yj-b2));		if(nowres); feffect(heart,,*slcmem,*slcmem,0);	member(select,picset,fch,org:nrm,!=,*selected); if(nowres); member(select,picset,fch,org,=,(nrm=yj-b2,snf=yj-b2-snf,kch=yj-b2-kch,ert=*none));			member(select,picset,bch,org,=,);																				member(select,picset,face,org,=,(nrm=yj-b2));				end; endif; endif;
evflag(*selected,==,id(fchpic:yj-c2));		if(nowres); feffect(dheart,,*slcmem,*slcmem,0);	member(select,picset,fch,org:nrm,!=,*selected); if(nowres); member(select,picset,fch,org,=,(nrm=yj-c2,snf=yj-c2-snf,kch=yj-c2-kch,ert=*none));			member(select,picset,bch,org,=,);																				member(select,picset,face,org,=,(nrm=yj-c2));				end; endif; endif;
evflag(*selected,==,id(fchpic:yj-a3));		if(nowres); feffect(heart,,*slcmem,*slcmem,0);	member(select,picset,fch,org:nrm,!=,*selected); if(nowres); member(select,picset,fch,org,=,(nrm=yj-a3,snf=yj-a3-snf,kch=yj-a3-kch,ert=*none));			member(select,picset,bch,org,=,);																				member(select,picset,face,org,=,(nrm=yj-a3-2));				end; endif; endif;
evflag(*selected,==,id(fchpic:yj-b3));		if(nowres); feffect(heart,,*slcmem,*slcmem,0);	member(select,picset,fch,org:nrm,!=,*selected); if(nowres); member(select,picset,fch,org,=,(nrm=yj-b3,snf=yj-b3-snf,kch=yj-b3-kch,ert=*none));			member(select,picset,bch,org,=,);																				member(select,picset,face,org,=,(nrm=yj-b3));				end; endif; endif;
evflag(*selected,==,id(fchpic:yj-c3));		if(nowres); feffect(dheart,,*slcmem,*slcmem,0);	member(select,picset,fch,org:nrm,!=,*selected); if(nowres); member(select,picset,fch,org,=,(nrm=yj-c3,snf=yj-c3-snf,kch=yj-c3-kch,ert=*none));			member(select,picset,bch,org,=,);																				member(select,picset,face,org,=,(nrm=yj-c3));				end; endif; endif;
evflag(*selected,==,id(fchpic:yj-a4));		if(nowres); feffect(heart,,*slcmem,*slcmem,0);	member(select,picset,fch,org:nrm,!=,*selected); if(nowres); member(select,picset,fch,org,=,(nrm=yj-a4,snf=yj-a4-snf,kch=yj-a4-kch,ert=yj-a4-ert));		member(select,picset,bch,org,=,);																				member(select,picset,face,org,=,(nrm=yj-a4-3,crm3=yj-a4-crms,los=yj-a4-los));end; endif; endif;
evflag(*selected,==,id(fchpic:yj-a4-ert));	if(nowres); feffect(heart,,*slcmem,*slcmem,0);	member(select,picset,fch,org:nrm,!=,*selected); if(nowres); member(select,picset,fch,org,=,(nrm=yj-a4-ert,snf=yj-a4-snf,kch=yj-a4-kch,ert=*none));		member(select,picset,bch,org,=,);																				member(select,picset,face,org,=,(nrm=yj-a4-3,crm3=yj-a4-crms,los=yj-a4-los));end; endif; endif;
evflag(*selected,==,id(fchpic:yj-a5));		if(nowres); feffect(heart,,*slcmem,*slcmem,0);	member(select,picset,fch,org:nrm,!=,*selected); if(nowres); member(select,picset,fch,org,=,(nrm=yj-a5,snf=yj-a5-snf,kch=yj-a5-kch,ert=yj-a5-ert));		member(select,picset,bch,org,=,);																				member(select,picset,face,org,=,(nrm=yj-a5-3,crm3=yj-a5-crms,los=yj-a5-los));end; endif; endif;
evflag(*selected,==,id(fchpic:yj-a5-ert));	if(nowres); feffect(heart,,*slcmem,*slcmem,0);	member(select,picset,fch,org:nrm,!=,*selected); if(nowres); member(select,picset,fch,org,=,(nrm=yj-a5-ert,snf=yj-a5-snf,kch=yj-a5-kch,ert=*none));		member(select,picset,bch,org,=,);																				member(select,picset,face,org,=,(nrm=yj-a5-3,crm3=yj-a5-crms,los=yj-a5-los));end; endif; endif;
evflag(*selected,==,id(fchpic:metaele));	if(nowres); feffect(star,,*slcmem,*slcmem,0);	member(select,picset,fch,org:nrm,!=,*selected); if(nowres); member(select,picset,fch,org,=,(nrm=metaele,snf=metaele-snf,kch=metaele-kch,ert=*none));		member(select,picset,bch,org,=,);																				member(select,picset,face,org,=,(nrm=metaele));				end; endif; endif;
evflag(*selected,==,id(fchpic:hollele));	if(nowres); feffect(star,,*slcmem,*slcmem,0);	member(select,picset,fch,org:nrm,!=,*selected); if(nowres); member(select,picset,fch,org,=,(nrm=hollele,snf=hollele-snf,kch=hollele-kch,ert=*none));		member(select,picset,bch,org,=,);																				member(select,picset,face,org,=,(nrm=hollele));				end; endif; endif;
evflag(*selected,==,id(fchpic:shikyuu));	if(nowres); feffect(star,,*slcmem,*slcmem,0);	member(select,picset,fch,org:nrm,!=,*selected); if(nowres); member(select,picset,fch,org,=,(nrm=shikyuu,snf=shikyuu-snf,kch=shikyuu-kch,ert=*none));		member(select,picset,bch,org,=,);																				member(select,picset,face,org,=,(nrm=shikyuu));				end; endif; endif;
evflag(*selected,==,id(fchpic:seiyu));		if(nowres); feffect(star,,*slcmem,*slcmem,0);	member(select,picset,fch,org:nrm,!=,*selected); if(nowres); member(select,picset,fch,org,=,(nrm=seiyu,snf=seiyu-snf,kch=seiyu-kch,ert=*none));			member(select,picset,bch,org,=,);																				member(select,picset,face,org,=,(nrm=seiyu));				end; endif; endif;
evflag(*selected,==,id(fchpic:seiyu-2));	if(nowres); feffect(star,,*slcmem,*slcmem,0);	member(select,picset,fch,org:nrm,!=,*selected); if(nowres); member(select,picset,fch,org,=,(nrm=seiyu-2,snf=seiyu-2-snf,kch=seiyu-2-kch,ert=*none));		member(select,picset,bch,org,=,);																				member(select,picset,face,org,=,(nrm=seiyu));				end; endif; endif;
evflag(*selected,==,id(fchpic:kokeshi));	if(nowres); feffect(star,,*slcmem,*slcmem,0);	member(select,picset,fch,org:nrm,!=,*selected); if(nowres); member(select,picset,fch,org,=,(nrm=kokeshi,snf=kokeshi-snf,kch=kokeshi-kch,ert=*none));		member(select,picset,bch,org,=,);																				member(select,picset,face,org,=,(nrm=kokeshi));				end; endif; endif;
evflag(*selected,==,id(fchpic:haniwa));		if(nowres); feffect(star,,*slcmem,*slcmem,0);	member(select,picset,fch,org:nrm,!=,*selected); if(nowres); member(select,picset,fch,org,=,(nrm=haniwa,snf=haniwa-snf,kch=haniwa-kch,ert=*none));		member(select,picset,bch,org,=,);																				member(select,picset,face,org,=,(nrm=haniwa));				end; endif; endif;
evflag(*selected,==,id(fchpic:ichimaz));	if(nowres); feffect(star,,*slcmem,*slcmem,0);	member(select,picset,fch,org:nrm,!=,*selected); if(nowres); member(select,picset,fch,org,=,(nrm=ichimaz,snf=ichimaz-snf,kch=ichimaz-kch,ert=*none));		member(select,picset,bch,org,=,);																				member(select,picset,face,org,=,(nrm=ichimaz));				end; endif; endif;
evflag(*selected,==,id(fchpic:daruma));		if(nowres); feffect(star,,*slcmem,*slcmem,0);	member(select,picset,fch,org:nrm,!=,*selected); if(nowres); member(select,picset,fch,org,=,(nrm=daruma,snf=daruma-snf,kch=daruma-kch,ert=*none));		member(select,picset,bch,org,=,);																				member(select,picset,face,org,=,(nrm=daruma));				end; endif; endif;
evflag(*selected,==,id(fchpic:maneki));		if(nowres); feffect(star,,*slcmem,*slcmem,0);	member(select,picset,fch,org:nrm,!=,*selected); if(nowres); member(select,picset,fch,org,=,(nrm=maneki,snf=maneki-snf,kch=maneki-kch,ert=*none));		member(select,picset,bch,org,=,);																				member(select,picset,face,org,=,(nrm=maneki));				end; endif; endif;
evflag(*selected,==,id(fchpic:buzzou));		if(nowres); feffect(star,,*slcmem,*slcmem,0);	member(select,picset,fch,org:nrm,!=,*selected); if(nowres); member(select,picset,fch,org,=,(nrm=buzzou,snf=buzzou-snf,kch=buzzou-kch,ert=*none));		member(select,picset,bch,org,=,);																				member(select,picset,face,org,=,(nrm=buzzou));				end; endif; endif;
#uɖ߂v̍ۂ̃GtFNgi߂́A摜IꍇƈꏏɌōsj
evflag(*selected,==,-2);			if(nowres); feffect(star,,*slcmem,*slcmem,0);	endif;
#evflag(*selected,==,-2);			if(nowres); feffect(star,,*slcmem,*slcmem,0);	member(select,picset,fch,org,=,);															member(select,picset,bch,org,=,);																				member(select,picset,face,org,=,); 					end; endif;
#evflag(*selected,==,-2);			if(nowres); feffect(star,,*slcmem,*slcmem,0);	member(select,resetpic,29); member(select,pcond, cond,,+=,ωp(-inf)); subevent(kigae,); end; endif;
#ɖ߂
member(select,picset,fch,org,=,); member(select,picset,bch,org,=,); member(select,picset,face,org,=,);


#ړ͈
<walkmode>
#select(*mړ\͈͕ύXn(cid=));
select(*m%sysm[*setwalkrgn].nmicn(cid=,udev=update_walkmode,dnev=done_walkmode));


<update_walkmode>
select(adddtp,blrgn,,); fc(*actor,mvrgn,&,); if(nowres); select(setfoot,,=,*ʍs); else; select(setfoot,,=,*ʍss); endif;
select(adddtp,blrgn,,); fc(*actor,mvrgn,&,); if(nowres); select(setfoot,,=,*ʍs); else; select(setfoot,,=,*ʍss); endif;
evflagsw(debug_full,==,1); if(nowres);
select(adddtp,blrgn,,); fc(*actor,mvrgn,&,); if(nowres); select(setfoot,,=,*ʍs); else; select(setfoot,,=,*ʍss); endif;
endif;
select(adddtp,blrgn,,); fc(*actor,mvrgn,&,); if(nowres); select(setfoot,,=,*ʍs); else; select(setfoot,,=,*ʍss); endif;
if(evf(*sw:pr_honpen)!=0);
select(adddtp,blrgn,C,); fc(*actor,mvrgn,&,C); if(nowres); select(setfoot,,=,*ʍs); else; select(setfoot,,=,*ʍss); endif;
endif;
if(evf(*sw:pr_dfmoon)!=0);
select(adddtp,blrgn,,); fc(*actor,mvrgn,&,); if(nowres); select(setfoot,,=,*ʍs); else; select(setfoot,,=,*ʍss); endif;
endif;
evflagsw(debug_full,==,1); if(nowres);
select(adddtp,blrgn,,); fc(*actor,mvrgn,&,); if(nowres); select(setfoot,,=,*ʍs); else; select(setfoot,,=,*ʍss); endif;
select(adddtp,blrgn,d,); fc(*actor,mvrgn,&,d); if(nowres); select(setfoot,,=,*ʍs); else; select(setfoot,,=,*ʍss); endif;
endif;


<done_walkmode>
evflag(*selected,==,id(blrgn:)); if(nowres); fc(*actor,mvrgn,^=,); goto(1); endif;
evflag(*selected,==,id(blrgn:)); if(nowres); fc(*actor,mvrgn,^=,); goto(1); endif;
evflag(*selected,==,id(blrgn:)); if(nowres); fc(*actor,mvrgn,^=,); goto(1); endif;
evflag(*selected,==,id(blrgn:)); if(nowres); fc(*actor,mvrgn,^=,); goto(1); endif;
evflag(*selected,==,id(blrgn:C)); if(nowres); fc(*actor,mvrgn,^=,C); goto(1); endif;
evflag(*selected,==,id(blrgn:)); if(nowres); fc(*actor,mvrgn,^=,); goto(1); endif;
evflag(*selected,==,id(blrgn:)); if(nowres); fc(*actor,mvrgn,^=,); goto(1); endif;
evflag(*selected,==,id(blrgn:d)); if(nowres); fc(*actor,mvrgn,^=,d); goto(1); endif;

#evflag(*selected,==,0); if(nowres); fc(*actor,mvrgn,=,|d); goto(20); endif;
#evflag(*selected,==,1); if(nowres); fc(*actor,mvrgn,=,||||d); goto(20); endif;
#evflag(*selected,==,2); if(nowres); fc(*actor,mvrgn,=,||||C|d); goto(20); endif;
#evflag(*selected,==,3); if(nowres); fc(*actor,mvrgn,=,||C||||d); goto(20); endif;
#evflag(*selected,==,4); if(nowres); fc(*actor,mvrgn,=,||C||); goto(20); endif;
#evflag(*selected,==,4); if(nowres); fc(*actor,mvrgn,=,||C|||||d); goto(20); endif;
#evflag(*selected,==,5); if(nowres); fc(*actor,mvrgn,=,||C|||); goto(20); endif;
#end;
#label(20); text(0,ύX܂B); end;

select(close); end;
label(1); select(update);


#ړx
<walkspeed>
fc(*actor,spd,==,4); if(nowres); evflag(*selected,=,0); endif;
fc(*actor,spd,==,8); if(nowres); evflag(*selected,=,1); endif;
fc(*actor,spd,==,16); if(nowres); evflag(*selected,=,2); endif;
fc(*actor,spd,==,32); if(nowres); evflag(*selected,=,3); endif;
fc(*actor,spd,==,64); if(nowres); evflag(*selected,=,4); endif;

select(*m%sysm[*setwalkspd].nmicn(cid=,udev=update_walkspeed));
#select(*mړxύXn(cid=));

#evflag(*selected,==,0); if(nowres); fc(*actor,spd,=,4); fc(*actor,ans,=,4); goto(10); endif;
#evflag(*selected,==,1); if(nowres); fc(*actor,spd,=,8); fc(*actor,ans,=,8); goto(10); endif;
#evflag(*selected,==,2); if(nowres); fc(*actor,spd,=,16); fc(*actor,ans,=,16); goto(10); endif;
#evflag(*selected,==,3); if(nowres); fc(*actor,spd,=,32); fc(*actor,ans,=,32); goto(10); endif;
#evflag(*selected,==,4); if(nowres); fc(*actor,spd,=,64); fc(*actor,ans,=,64); goto(10); endif;
#end;

evflag(*selected,==,0); if(nowres); fc(*actor,spd,=,4); formem(all); member(select,picset,fch,org:*ans,=,4); member(select,resetpic,0); nextmem(); goto(10); endif;
evflag(*selected,==,1); if(nowres); fc(*actor,spd,=,8); formem(all); member(select,picset,fch,org:*ans,=,-1); member(select,resetpic,0); nextmem(); goto(10); endif;
evflag(*selected,==,2); if(nowres); fc(*actor,spd,=,16); formem(all); member(select,picset,fch,org:*ans,=,16); member(select,resetpic,0); nextmem(); goto(10); endif;
evflag(*selected,==,3); if(nowres); fc(*actor,spd,=,32); formem(all); member(select,picset,fch,org:*ans,=,32); member(select,resetpic,0); nextmem(); goto(10); endif;
evflag(*selected,==,4); if(nowres); fc(*actor,spd,=,64); formem(all); member(select,picset,fch,org:*ans,=,64); member(select,resetpic,0); nextmem(); goto(10); endif;
end;
label(10); text(0,ύX܂B); end;


<update_walkspeed>
#select(reset,all);
select(+(id=0));
select(+ʏ(id=1));
if(evf(*sw:pr_dfmoon2)==1);
#item(check:eq,],1); if(nowres);
select(+{(id=2));
select(+l{(id=3));
select(+{(id=4));
endif;
#select(+ςȂ);
# select(/);


#퓬iri̕\ݒj
<setdspbtr>
select(*m%sysm[*btlnavi].nmicn(cid=,udev=update_setdspbtr,dnev=done_setdspbtr));
#select(*m퓬irݒn(cid=));


<update_setdspbtr>
evflagsw(dsphitr,==,1); if(nowres); evtext(subtx1,=,*nm); else; evtext(subtx1,=,*nee); endif;
evflagsw(pr_dsphitr,==,1); if(nowres); select(+\(id=0,com=GɃJ[\킹Ă鎞AỎɕ\܂B,foot=%str[*subtx1])); else; select(+HHH(en=0)); endif;
evflagsw(dspcondr,==,1); if(nowres); evtext(subtx1,=,*nm); else; evtext(subtx1,=,*nee); endif;
evflagsw(pr_dspcdr,==,1); if(nowres); select(+{ԕt\(id=1,com=ϐʂ̏Ԃł̏Ԉُ̕tB,foot=%str[*subtx1])); else; select(+HHH(en=0)); endif;
evflagsw(dspcrtr,==,1); if(nowres); evtext(subtx1,=,*nm); else; evtext(subtx1,=,*nee); endif;
evflagsw(pr_dspcrtr,==,1); if(nowres); select(+\(id=2,com=Sharp̔B,foot=%str[*subtx1])); else; select(+HHH(en=0)); endif;
evflagsw(dspblkr,==,1); if(nowres); evtext(subtx1,=,*nm); else; evtext(subtx1,=,*nee); endif;
evflagsw(pr_dspcrtr,==,1); if(nowres); select(+\(id=3,com=Loose̔񔭐B,foot=%str[*subtx1])); else; select(+HHH(en=0)); endif;
evflagsw(dspescr,==,1); if(nowres); evtext(subtx1,=,*nm); else; evtext(subtx1,=,*nee); endif;
evflagsw(pr_dsphitr,==,1); if(nowres); select(+\(id=4,com=ZACe̐̕ɕ\܂B,foot=%str[*subtx1])); else; select(+HHH(en=0)); endif;
evflagsw(dspkeepr,==,1); if(nowres); evtext(subtx1,=,*nm); else; evtext(subtx1,=,*nee); endif;
evflagsw(pr_dspcdr,==,1); if(nowres); select(+K\(id=5,com=ɂ𗎂ƂȂmB,foot=%str[*subtx1])); else; select(+HHH(en=0)); endif;
evflagsw(dspmbdmg,==,1); if(nowres); evtext(subtx1,=,*nm); else; evtext(subtx1,=,*nee); endif;
evflagsw(pr_dspcrtr,==,1); if(nowres); select(+\_[W\(id=6,com=Ԓl̊{ϓʁB,foot=%str[*subtx1])); else; select(+HHH(en=0)); endif;
#select(+(ic=close));
#select(/instant1);


<done_setdspbtr>
evflag(*selected,==,0); if(nowres); evflagsw(dsphitr,^=); goto(1); endif;
evflag(*selected,==,1); if(nowres); evflagsw(dspcondr,^=); goto(1); endif;
evflag(*selected,==,2); if(nowres); evflagsw(dspcrtr,^=); goto(1); endif;
evflag(*selected,==,3); if(nowres); evflagsw(dspblkr,^=); goto(1); endif;
evflag(*selected,==,4); if(nowres); evflagsw(dspescr,^=); goto(1); endif;
evflag(*selected,==,5); if(nowres); evflagsw(dspkeepr,^=); goto(1); endif;
evflag(*selected,==,6); if(nowres); evflagsw(dspmbdmg,^=); goto(1); endif;
select(close); end;
label(1); select(update);


#frameR}h
#cursorR}h
#boxcolR}h


#V[gJbgL[̐ݒ
#V[gJbgL[̑I
<setfunckey>
select(*m%sysm[*setsckey].nmicn(cid=,udev=update_setfunckey,dnev=done_setfunckey));
#select(*mV[gJbgL[̐ݒn(cid=));


<getfunckeyname>
evarg(keyid);
evflag(*evarg:keyid,==,id(evf:key_5)); if(nowres); evtext(subtx1,=,*eL[T^b); end; endif;
evflag(*evarg:keyid,==,id(evf:key_1)); if(nowres); evtext(subtx1,=,*eL[P^`); end; endif;
evflag(*evarg:keyid,==,id(evf:key_3)); if(nowres); evtext(subtx1,=,*eL[R^r); end; endif;
evflag(*evarg:keyid,==,id(evf:key_7)); if(nowres); evtext(subtx1,=,*eL[V^c); end; endif;
evflag(*evarg:keyid,==,id(evf:key_9)); if(nowres); evtext(subtx1,=,*eL[X^e); end; endif;


<getfunckeyactname>
evarg(actid);
evflag(*evarg:actid,==,0); if(nowres); evtext(subtx1,=,*擪؂ւ); end; endif;
evflag(*evarg:actid,==,1); if(nowres); evtext(subtx1,=,*%sysm[*save]); end; endif;
evflag(*evarg:actid,==,2); if(nowres); evtext(subtx1,=,*%sysm[*config]); end; endif;
evflag(*evarg:actid,==,3); if(nowres); evtext(subtx1,=,*%sysm[*setwalkrgn]); end; endif;
evflag(*evarg:actid,==,4); if(nowres); evtext(subtx1,=,*%sysm[*setwalkspd]); end; endif;
evflag(*evarg:actid,==,5); and; zukan(item:ip[,!=,0); if(nowres); evtext(subtx1,=,*%it[*ip[]); end; endif;
evflag(*evarg:actid,==,6); and; zukan(item:G,!=,0); if(nowres); evtext(subtx1,=,*%it[*G]); end; endif;
evflag(*evarg:actid,==,7); and; zukan(item:jukebox,!=,0); if(nowres); evtext(subtx1,=,*%it[*jukebox]); end; endif;
evflag(*evarg:actid,==,8); and; zukan(item:henge,!=,0); if(nowres); evtext(subtx1,=,*%it[*henge]); end; endif;
evtext(subtx1,=,*HHH);
#key_func


<update_setfunckey>
subevent(update_setfunckey_sub(evf(key_5),id(evf:key_5)),); select(+%str[*subtx1](id=evf:key_5));
subevent(update_setfunckey_sub(evf(key_1),id(evf:key_1)),); select(+%str[*subtx1](id=evf:key_1));
subevent(update_setfunckey_sub(evf(key_3),id(evf:key_3)),); select(+%str[*subtx1](id=evf:key_3));
subevent(update_setfunckey_sub(evf(key_7),id(evf:key_7)),); select(+%str[*subtx1](id=evf:key_7));
subevent(update_setfunckey_sub(evf(key_9),id(evf:key_9)),); select(+%str[*subtx1](id=evf:key_9));
select(+ftHgɖ߂(id=100));


<update_setfunckey_sub>
evarg(actid,keyid);
subevent(getfunckeyname(evf(*evarg:keyid)),);
evtext(subtx2,=,*%str[*subtx1]);
subevent(getfunckeyactname(evf(*evarg:actid)),);
evtext(subtx2,+=,*F%str[*subtx1]);
evtext(subtx1,=,*%str[*subtx2]);


<done_setfunckey>
evflag(*selected,==,id(evf:key_5)); if(nowres); subevent(setfunckey_sub2(evf(key_5),evf(*selected)),); goto(1); endif;
evflag(*selected,==,id(evf:key_1)); if(nowres); subevent(setfunckey_sub2(evf(key_1),evf(*selected)),); goto(1); endif;
evflag(*selected,==,id(evf:key_3)); if(nowres); subevent(setfunckey_sub2(evf(key_3),evf(*selected)),); goto(1); endif;
evflag(*selected,==,id(evf:key_7)); if(nowres); subevent(setfunckey_sub2(evf(key_7),evf(*selected)),); goto(1); endif;
evflag(*selected,==,id(evf:key_9)); if(nowres); subevent(setfunckey_sub2(evf(key_9),evf(*selected)),); goto(1); endif;
evflag(*selected,==,100); if(nowres); evflag(key_5,=,evf(*reset:key_5)); evflag(key_1,=,evf(*reset:key_1)); evflag(key_3,=,evf(*reset:key_3)); evflag(key_7,=,evf(*reset:key_7)); evflag(key_9,=,evf(*reset:key_9)); goto(1); endif;
select(close); end;
label(1); select(update);


#V[gJbgL[̃ANV̑I
<setfunckey_sub2>
evarg(actid,keyid);
subevent(getfunckeyname(evf(*evarg:keyid)),);
evflag(*selected,=,evf(*evarg:actid));
select(*m%str[*subtx1]̓n(cid=,udev=update_setfunckey_sub2));

evflag(*selected,>=,0); if(nowres); evflag(*src:evf(*evarg:keyid),=,evf(*selected)); endif;
#evflag(instant1,=,evf(*selected));


<update_setfunckey_sub2>
subevent(getfunckeyactname(0),); select(+%str[*subtx1](id=0,ic=head));
subevent(getfunckeyactname(1),); select(+%str[*subtx1](id=1,ic=pen));
subevent(getfunckeyactname(2),); select(+%str[*subtx1](id=2,ic=setting));
subevent(getfunckeyactname(3),); select(+%str[*subtx1](id=3,ic=walk));
subevent(getfunckeyactname(4),); select(+%str[*subtx1](id=4,ic=walk));
subevent(getfunckeyactname(5),); zukan(item:ip[,!=,0); if(nowres); select(+%str[*subtx1](id=5,ic=book)); else; select(+HHH(id=5)); endif; 
subevent(getfunckeyactname(6),); zukan(item:G,!=,0); if(nowres); select(+%str[*subtx1](id=6,ic=book)); else; select(+HHH(id=6)); endif; 
subevent(getfunckeyactname(7),); zukan(item:jukebox,!=,0); if(nowres); select(+%str[*subtx1](id=7,ic=onpu)); else; select(+HHH(id=7)); endif; 
subevent(getfunckeyactname(8),); zukan(item:henge,!=,0); if(nowres); select(+%str[*subtx1](id=8,ic=orb)); else; select(+HHH(id=8)); endif; 


#o[̏펞퓬̂nm^nee
<autbtlmem>
while;
#memslcbox(party:autbtl,mo[̎퓬ݒn,,,2); if(nowres);
memslcbox(party:autbtl,m%sysm[*memautbtl].nmicn,,,2); if(nowres);
member(select,subflg,&,8); if(nowres); member(select,subflg,&=~,8);  text(1,,%mem[s]͎蓮퓬ɖ߂B); else; member(select,subflg,|=,8); text(1,,%mem[s]͎퓬ɂȂB); endif;
next; wend;
endif; 


#[v
<warp>
#evflagsw(escapable,==,0); if(nowres); text(0,ł́^͎gȂI); end; endif;
#evflagsw(escapable,==,0); if(nowres); text(0,EołȂIH); end; endif;
not; fc(*actor,ride,offable,*actor:ride:-1); if(nowres); text(0,ł͏蕨učsȂI); end; endif;

zukan(warppos,ǂֈړH,(mode=slcable,dspdetail=0));
#select(*mǂֈړHn(cid=,y=48,cols=2,mincolw=def,udev=update_warp));

evflag(*selected,==,-1); if(nowres); text(0,~܂); end; endif;

sound(warp);
#evflag(*selected,==,17); or; evflag(*selected,==,18); if(nowres); fade(out,fade,ffffff,255,16); else;
fade(out,(type=fade,color=000000,wait=16));
#endif;
subevent(forced_rideoff,*actor);

#}bvƈʒuςłȂƁAݒnx͂킩ȂB܂A㑱L̍x̒KvB
changemap(*wp,evf(*selected),*actor); fc(*actor,move,wp:0,evf(*selected),*actor,wp:0,evf(*selected),*actor,center); fc(*actor,dir,=,wp:r,evf(*selected),*actor); fc(*actor,float,=,mc(,height)); fc(*actor,resetchain);

exiwarp(evf(*selected),ship_st); if(nowres); fc(ship_st,move,wp:0,evf(*selected),ship_st,wp:0,evf(*selected),ship_st,); fc(ship_st,dir,=,wp:r,evf(*selected),ship_st); fc(ship_st,map,=,*this); endif;

#evflag(*selected,==,id(warppos:forest2)); if(nowres);	evflagsw(pr_honpen,==,0); if(nowres); fc(ship_st,move,17,15,); fc(ship_st,dir,=,u); fc(ship_st,map,=,*this); endif; goto(0); endif;
#evflag(*selected,==,id(warppos:tower)); if(nowres);		evflagsw(pr_honpen,==,0); if(nowres); fc(ship_st,move,23,16,); fc(ship_st,dir,=,u); fc(ship_st,map,=,*this); endif; goto(0); endif;
#evflag(*selected,==,id(warppos:shinden)); if(nowres);	evflagsw(pr_honpen,==,0); if(nowres); fc(ship_st,move,31,14,); fc(ship_st,dir,=,l); fc(ship_st,map,=,*this); endif; goto(0); endif;
evflag(*selected,==,id(warppos:omake)); if(nowres);		fc(c5,apr,=,0); goto(0); endif;

label(0);
consume; fade(in,(type=fade,color=000000,wait=16));
#evflag(*selected,==,17); or; evflag(*selected,==,18); if(nowres); fade(in,fade,ffffff,255,16); else; fade(in,(type=fade,color=000000,wait=16)); endif;


#_WEoij
<escdg>
#evflagsw(escapable,==,0); if(nowres); text(0,ł́^͎gȂI); end; endif;
not; retpos(check); if(nowres); text(0,߂ꏊ킩ȂI); end; endif;
#evflagsw(escapable,==,0); if(nowres); text(0,EołȂIH); end; endif;
#sound(drop); fade(out,(type=fade,color=000000,wait=16)); subevent(forced_rideoff,*actor); fc(*actor,move,ret:0,ret:0,center); fc(*actor,dir,=,d); fc(*actor,float,=,0); changemap(); consume; fade(in,(type=fade,color=000000,wait=16));
sound(drop); fade(out,(type=fade,color=000000,wait=16)); subevent(forced_rideoff,*actor);
changemap(*ret); fc(*actor,move,ret:0,ret:0,center); fc(*actor,dir,=,ret:l); fc(*actor,float,=,mc(,height)); fc(*actor,resetchain);
consume; fade(in,(type=fade,color=000000,wait=16));


#ԍĕҐiACeEZpj
<changemem2>
enparty(==,main); if(nowres); party(,changedlg,1); else; party(,changedlg,0); endif; if(nowres); subevent(kigae,); consume; endif;


#x@
<alerm>
consume;
mc(,eneexis); if(nowres); fade(out,(type=btdefo,color=btdefo,dep=btdefo,rot=btdefo,wait=btdefo)); battle();
#fade(isin); if(nowres); text(1,,CԂB); endif;
#fade(isout); if(nowres); text(1,,AEgԂB); endif;
fade(in2,); else; text(1,,ł͉NȂ悤EEEB); endif;


#wx@
<slcalerm>
evarg(full, eneg);

#mc(,enegr,>=,iv); if(nowres); text(0,iv~PLB); endif;
#mc(,enegr,&,(iv~Q,u[hK[)); if(nowres); text(0,iv~Q܂̓u[hK[~PLB); endif;
#mc(,enegr,>=,(W,iv~R)); if(nowres); text(0,W~Pƃiv~RɗLB); endif;

mc(,eneexis); if(nowres);
#while; evflag(*selected,=,evf(selectedenegr)); zukan(enegr:*selectmc,GO[vI,initid=*selected); if(nowres);
#while; evflag(*selected,=,selectedenegr); mc(,eneselect,GO[vI,selected); if(nowres);
while; mc(,eneselect,GO[vI,(mode=*if(evf(*evarg:full),itdlgmode2(slcable|dspall),itdlgmode2(slcable|dspunk)),initid=*selected)); if(nowres);
#evflag(selectedenegr,=,evf(*selected));
evflag(*evarg:eneg,=,evf(*selected));
fade(out,(type=btdefo,color=btdefo,dep=btdefo,rot=btdefo,wait=btdefo)); battle(enegr=*evf(*selected)); fade(in2,); evflag(*selected,==,2); if(nowres); end; endif;
evflag(*selected,=,evf(*evarg:eneg));
next; endif;
wend;
else; text(1,,ɓG͋ȂB);
endif;

#select(reset,all); select(addeneg); select(count,>,0); if(nowres);
#select(+~);
#while; select(*mGO[vIn(cid=,y=32,cols=2,mincolw=def));
#evflag(*selected,>=,0); if(nowres); fade(out,btdefo,btdefo,btdefo,btdefo); battle(*selected,,, *def:def,*def:def,*def:def, , ,,); fade(in2,def,,,); evflag(*selected,==,2); if(nowres); end; endif; next; endif;
#wend;
#else; text(1,,ɓG͋ȂB);
#endif;


#G@
<sakuteki>
evarg(full);

mc(,eneexis); if(nowres);
mc(,eneselect,GO[vꗗ,(mode=*if(evf(*evarg:full),itdlgmode2(dspall),itdlgmode2(dspunk))));
else; text(1,,ɓG͋ȂB);
endif;


#ʐ؂
<endmayoke>
text(1,,̌ڂ؂ꂽB);
#ӂ肩׋CB
#ӂ̎׋C܂B


#񂹌ʐ؂
<endmayose>
text(1,,񂹂̌ڂ؂ꂽB);
#ӂ̎׋C[܂B


#n`hʐ؂
<endchuuwa>
text(1,,n`ȟڂ؂ꂽB);
#n`̃_[WȂB


#蕨
<callvehi>
#evflagsw(callable,==,0); if(nowres); text(0,ł́^͌ĂׂȂ); end; endif;
fc(*actor,ride,check,*target:1); if(nowres); text(0,撆̏蕨͌ĂׂȂ); end; endif;
fc(*target,mvable,~^1,~^0); unif(nowres); text(0,ɂ͒uȂ); end; endif;
#not; fc(*target,mvable,~^^1,~^^0); and; not; fc(*target,mvable,~^~1,~^~0); or; not; fc(*target,mvable,~^1,~^0);
not; fc(*actor,dir,==,r); and; not; fc(*actor,dir,==,l); and; not; fc(*actor,dir,==,d); and; not; fc(*actor,dir,==,u); and; not; fc(*actor,mvable,~^^1,~^^0); and; not; fc(*actor,mvable,~^~1,~^~0); if(nowres); text(0,̕ɒuƏ鎖łȂȂ); end; endif;
sound(select); fc(*target,move,~^0,~^0,); fc(*target,dir,=,~r); fc(*target,map,=,*this); fc(*target,walk,1,16,1,0,r); consume; return;


#ԏ
<callcar>
#evflagsw(pr_car,==,0); if(nowres);; text(0,Ԃ𖢂ĂȂB); end; endif;
#evflagsw(callable,==,0); if(nowres); text(0,ł́^͌ĂׂȂ); end; endif;
#fc(ride,*actor,check,car_mv); if(nowres); text(0,撆̏蕨͌ĂׂȂ); end; endif;
#not; fc(mvable,car_st,~^1,~^0); if(nowres); text(0,ɎԂ͒uȂ); end; endif;
subevent(callvehi,car_st);
#sound(select); fc(move,car_st,0,~^0,~^0,+); fc(map,car_st,*this); fc(walk,car_st,1,16,1,0,0); consume; return;


#D
<callship>
#evflagsw(pr_ship,==,0); if(nowres); text(0,D𖢂ĂȂB); end; endif;
#evflagsw(pr_honpen,==,0); if(nowres); text(0,{҂NA܂ł͎gȂ悤B); end; endif;
subevent(callvehi,ship_st);


#s@
<callplane>
#evflagsw(pr_plane,==,0); if(nowres); else; text(0,s@𖢂ĂȂA͒ĂȂB); end; endif;
subevent(callvehi,plane_st);




#蕨̃Zbg
<resetvehi>
evarg(fclb,fclb_mv);
evflag(*evarg:fclb,==,id(fclb:car_st)); if(nowres); evtext(subtx2,=,*); evflag(*evarg:fclb_mv,=,id(fclb:car_mv)); endif;
evflag(*evarg:fclb,==,id(fclb:ship_st)); if(nowres); evtext(subtx2,=,*D); evflag(*evarg:fclb_mv,=,id(fclb:ship_mv)); endif;
evflag(*evarg:fclb,==,id(fclb:plane_st)); if(nowres); evtext(subtx2,=,*s@); evflag(*evarg:fclb_mv,=,id(fclb:plane_mv)); endif;

#evflagsw(pr_car,==,1); if(nowres);
#select2(+(id=0)); select2(+Ȃ); select2(+FύX(id=1)); select2(/); select2(*Ԃ̈ʒuɖ߂H(cid=));
text(1,face=uam,dbB%str[*subtx2]̈ʒũZbgݒ肪ł悤B);
select2(reset,pos);
evflag(instant1,=,-1);
while;
evflag(instant1,=,evf(*selected));
select2(reset,list);
select2(+%str[*subtx2]̈ʒuZbg(id=0,ic=tel));
select2(+%str[*subtx2]̐Fς(id=1,ic=element));
evflag(*selected,=,fc(*evf:evf(*evarg:fclb_mv),bgm));
select2(+%str[*subtx2]̉yςi݁F%music[s]j(id=2,ic=onpu,com=w%it[*jukebox].nmicxKv)); item(check:eq,jukebox,1); select2(setenable,,nowres);
#select2(+%str[*subtx2]̉y߂(id=3,ic=onpu));
select2(+%str[*subtx2]Zbg(id=10,ic=reverse2));
select2(+(ic=close));
select2(/evf(instant1));
select2(*%str[*subtx2]̈ʒuɖ߂H(cid=));

evflag(*selected,==,0); if(nowres);
fc(*evf:evf(*evarg:fclb),map,=,*reset); fc(*evf:evf(*evarg:fclb),move,i0,i0,); fc(*evf:evf(*evarg:fclb),dir,=,ir);
evflag(*evarg:fclb,!=,id(fclb:plane_st)); if(nowres); text(0,%str[*subtx2]̈ʒuɖ߂B); next; endif;
endif;

evflag(*selected,==,1); if(nowres);
subevent(changevehipic(evf(*evarg:fclb),evf(*evarg:fclb_mv)),);
next; endif;

evflag(*selected,==,2); if(nowres);
evflag(instant1,=,fc(*evf:evf(*evarg:fclb_mv),bgm)); evtext(subtx1,=,*%str[*subtx2]̉yύX); subevent(selectbgm,);
if(nowres); evflag(instant1,==,id(-sysm:default)); if(nowres); fc(*evf:evf(*evarg:fclb_mv),bgm,=,*def); else; fc(*evf:evf(*evarg:fclb_mv),bgm,=,*sv/evf(instant1)); endif; endif;
next; endif;

#evflag(*selected,==,3); if(nowres); fc(car_mv,bgm,=,*def); next; endif;

evflag(*selected,==,10); if(nowres);
fc(*evf:evf(*evarg:fclb),reset); fc(*evf:evf(*evarg:fclb_mv),reset);
evflag(*evarg:fclb,!=,id(fclb:plane_st)); if(nowres); text(0,%str[*subtx2]ZbgB); next; endif;
endif;

wend;
#else; text(0,ȂB);
#else; text(1,face=uam,dbB); endif;

evflag(*evarg:fclb,==,id(fclb:plane_st)); if(nowres);
evflag(*selected,==,0); or; evflag(*selected,==,10); if(nowres);
fc(plane_st,x,+=,1); sound(select); fc(plane_st,walk,0,-1,-1,0,l); return;
endif;
endif;

#select2(+(id=0)); select2(+Ȃ); select2(/); select2(*s@̈ʒuɖ߂H(cid=));
#evflag(*selected,==,0); if(nowres); fc(plane_st,reset); fc(plane_mv,reset); fc(plane_st,x,+=,1); sound(select); fc(plane_st,walk,0,-1,-1,0,l); return; end; endif;

#fc(plane_st,move,40,11,); fc(plane_st,dir,=,l); fc(plane_st,map,=,tB[h);
#sound(select); fc(plane_st,walk,0,-1,-1,0,l); return;



#蕨FύX
<changevehipic>
evarg(fclb,fclb_mv);

fc(*evf:evf(*evarg:fclb),picset,fch,org:nrm,); evflag(instant1,=,evf(nowval));

#
evflag(*evarg:fclb,==,id(fclb:car_st)); if(nowres);
evflag(*selected,=,id(fchpic:car));
select2(+DF(id=fchpic:car));
select2(+F(id=fchpic:car2));
select2(+F(id=fchpic:car3));
select2(+F(id=fchpic:car4));
select2(/evf(instant1));
endif;

#D
evflag(*evarg:fclb,==,id(fclb:ship_st)); if(nowres);
evflag(*selected,=,id(fchpic:ship));
select2(+DF(id=fchpic:ship));
select2(+F(id=fchpic:ship2));
select2(+F(id=fchpic:ship3));
select2(+F(id=fchpic:ship4));
select2(/evf(instant1));
endif;

#s@
evflag(*evarg:fclb,==,id(fclb:plane_st)); if(nowres);
evflag(*selected,=,id(fchpic:plane));
select2(+DF(id=fchpic:plane));
select2(+F(id=fchpic:plane2));
select2(+F(id=fchpic:plane3));
select2(+F(id=fchpic:plane4));
select2(/evf(instant1));
endif;

select2(*%str[*subtx2]̐FύX(cid=));
evflag(*selected,>=,0); if(nowres);
fc(*evf:evf(*evarg:fclb),picset,fch,org:nrm,=,*selected); fc(*evf:evf(*evarg:fclb_mv),picset,fch,org:nrm,=,*selected);
evflag(*evarg:fclb,!=,id(fclb:plane_st)); if(nowres); text(0,%str[*subtx2]̐FύXB); endif;
endif;


#ogtB[hύXifʋ@j
<changebtf>
evflag(instant1,=,0);

#퓬
evflag(*phase,==,id(phase:btl)); if(nowres);
#evflag(*selected,=,0);
while;
evtext(subtx1,=,*퓬wiύX); subevent(selectbtf,); if(nowres);
if(evf(instant1) == id(-sysm:default)); evflag(instant1,=,spkey(*def)); endif;
fade(out,(type=fade,color=000000,wait=16));
#evflag(*selected,==,*btf:fbk_hyper); if(nowres); btfield((fbk_hyper,starfall)); fade(in,(type=fade,color=000000,wait=16)); next; endif;
#evflag(*selected,==,*btf:hyper2); if(nowres); btfield((hyper2,starvol2)); fade(in,(type=fade,color=000000,wait=16)); next; endif;
#evflag(*selected,==,*btf:hyper2-2); if(nowres); btfield((hyper2-2,starvol3)); fade(in,(type=fade,color=000000,wait=16)); next; endif;
evflag(*selected,=,evf(instant1)); btfield(*selected); fade(in,(type=fade,color=000000,wait=16)); next;
endif;
wend;
end;

#ړ
else;
evflag(instant1,=,mc(,btf));
evtext(subtx1,=,*n_̐퓬wiύX); subevent(selectbtf,); if(nowres);
if(evf(instant1) == id(-sysm:default)); evflag(instant1,=,spkey(*def)); endif;
evflag(*selected,=,evf(instant1)); mc(,btf,*selected);
endif;
endif;


#풓tF[hύXiJ[Znj
<changemfade>
select2(reset,pos);
while;
select2(reset,list);
evflag(instant1,=,mfade(0,dep)); select2(+ZύXiF%ev[*instant1]j(id=1));
evflag(instant1,=,mfade(0,col)); select2(+FύXiF%ev[*instant1].colj(id=0));
select2(*mFʕύXn(cid=));

evflag(*selected,==,0); if(nowres); subevent(changemfade_col,); next; endif;
evflag(*selected,==,1); if(nowres); subevent(changemfade_dep,); next; endif;

wend;


<changemfade_col>
select2(reset,pos);
while;
select2(reset,list);
select2(+(id=0));
select2(+(id=1));
select2(+(id=2));
select2(+VA(id=3));
select2(+(id=4));
select2(+}[^(id=5));
select2(+(id=6));
select2(+(id=7));
select2(+D(id=8));
select2(+ftHg(id=9));
select2(*mFʕύXFFn(cid=));

evflag(*selected,==,0); if(nowres); mfade(0,ff0000,); next; endif;
evflag(*selected,==,1); if(nowres); mfade(0,ffff00,); next; endif;
evflag(*selected,==,2); if(nowres); mfade(0,00ff00,); next; endif;
evflag(*selected,==,3); if(nowres); mfade(0,00ffff,); next; endif;
evflag(*selected,==,4); if(nowres); mfade(0,0000ff,); next; endif;
evflag(*selected,==,5); if(nowres); mfade(0,ff00ff,); next; endif;
evflag(*selected,==,6); if(nowres); mfade(0,ffffff,); next; endif;
evflag(*selected,==,7); if(nowres); mfade(0,000000,); next; endif;
evflag(*selected,==,8); if(nowres); mfade(0,808080,); next; endif;
evflag(*selected,==,9); if(nowres); mfade(0,def,); next; endif;

wend;


<changemfade_dep>
select2(reset,pos);
while;
select2(reset,list);
select2(+(id=0));
select2(+(id=1));
select2(+(id=2));
select2(+Z(id=3));
select2(+ftHg(id=4));
select2(*mFʕύXFZn(cid=));

evflag(*selected,==,0); if(nowres); mfade(0,,0); next; endif;
evflag(*selected,==,1); if(nowres); mfade(0,,64); next; endif;
evflag(*selected,==,2); if(nowres); mfade(0,,128); next; endif;
evflag(*selected,==,3); if(nowres); mfade(0,,192); next; endif;
evflag(*selected,==,4); if(nowres); mfade(0,,def); next; endif;

wend;


#UeXgiU@j
<shaketest>
#text(1,,`ʐUeXg`);
#\nU傫ƁA蔲ʂƂo܂cc

select2(reset,all);
select2(+Eᑬ(id=0));
select2(+E(id=1));
select2(+Eᑬ(id=2));
select2(+E(id=3));
select2(+啝Eᑬ(id=4));
select2(+啝E(id=5));
select2(+(id=6));
select2(+k(id=7));
select2(+F(id=8));
select2(+(id=9));
select2(+{kij(id=10));
select2(+{kij(id=11));
select2(+~(id=12));
#select2(+);
select2(*mʐUeXgn(x=32,y=32,cid=));

if(evf(*selected)==0); shake(2,2,2,1,1); end; endif;
if(evf(*selected)==1); shake(2,2,2,2,2); end; endif;
if(evf(*selected)==2); shake(2,4,4,1,1); end; endif;
if(evf(*selected)==3); shake(2,4,4,2,2); end; endif;
if(evf(*selected)==4); shake(2,8,8,1,1); end; endif;
if(evf(*selected)==5); shake(2,8,8,2,2); end; endif;
if(evf(*selected)==6); shake(2,8,0,1,0); end; endif;
if(evf(*selected)==7); shake(2,0,8,0,1); end; endif;
if(evf(*selected)==8); shake(2,8,8,1,1); end; endif;
if(evf(*selected)==9); shake(2,8,8,-1,1); end; endif;
if(evf(*selected)==10); shake(2,8,4,2,1); end; endif;
if(evf(*selected)==11); shake(2,8,8,2,1); end; endif;
if(evf(*selected)==12); shake(0); end; endif;

#shake(1,4,4,2,2,8);
#shake(2,4,4,2,2);
#shake(2,0,16,0,2);
#shake(2,16,0,2,0);
#shake(2,16,16,2,2);
#shake(2,16,16,-2,2);
#shake(2,16,8,4,2);
#shake(2,16,16,4,2);
#shake(2,8,8,4,2);
#shake(2,8,8,4,2);
#shake(0);


#D{߂ɌĂ
<callship2>
fc(ship_st,move,7,2,); fc(ship_st,dir,=,r); fc(ship_st,map,=,tB[h)


#ʍs
<passbattle>
formem(party); member(select,equip,*each,lost,ʍs); nextmem(exis); if(nowres);
text(0,w%it[*ʍs].nmicx؂JI);
true;
endif;


#iGtFNg
<evolution>
music(over,=,*silent);
sound(attack1); flash(ffc000,128,8); wait(4); sound(attack1); flash(ffc000,192,8); wait(4); sound(attack1); flash(ffc000,255,8); wait(16); feffect(up2,,*actor,*actor,0); wait(44);
music(over,=,);


#yI
<selectbgm>
evflag(*selected,=,evf(instant1));
if(evf(*selected)==-1); evflag(*selected,=,id(-sysm:silent)); endif;
if(evf(*selected)==-2); evflag(*selected,=,id(-sysm:mscoff)); endif;
zukan(music,%str[*subtx1],(mode=slcable,initid=*selected,dspdetail=0,udev=update_selectbgm));
evflag(*selected,!=,-1); if(nowres);
if(evf(*selected)==id(-sysm:silent)); evflag(*selected,=,spkey(*none)); endif;
if(evf(*selected)==id(-sysm:mscoff)); evflag(*selected,=,spkey(*nochange)); endif;
evflag(instant1,=,evf(*selected));
true;
else;
false;
endif;


<update_selectbgm>
select(adddtp,-sysm,mscoff,t3col|slcable|dspall);
select(adddtp,-sysm,default,t3col|slcable|dspall);


#퓬wiI
<selectbtf>
evflag(*selected,=,evf(instant1));
#evflagsw(debug_full,==,1); if(nowres); zukan(btf,%str[*subtx1],(mode=slcable|dspall,initid=*selected,dspdetail=0)); else; zukan(btf,%str[*subtx1],(mode=slcable,initid=*selected,dspdetail=0)); endif;
#zukan(btf,%str[*subtx1],(mode=*if(evf(*sw:debug_full) == 1,itdlgmode2(slcable|dspall),itdlgmode2(slcable|dspunk)),initid=*selected,dspdetail=0));
zukan(btf,%str[*subtx1],(mode=slcable,initid=*selected,dspdetail=0,udev=update_selectbtf));
evflag(*selected,>=,0); or; evflag(*selected,==,id(-sysm:default));
if(nowres); evflag(instant1,=,evf(*selected)); endif;


<update_selectbtf>
select(adddtp,-sysm,default,t3col|slcable|dspall);


#퓬tF[hύX̃eXgiJ`Rj
<setbtfd>
select2(reset,pos);
while;
select2(reset,list);
select2(+tF[hAEgύX(id=0));
select2(+tF[hCύX(id=1));
select2(+mF(id=2));
#select2(+tF[hAEg߂(id=2));
#select2(+tF[hC߂(id=3));
select2(*m퓬JňʕύXn(cid=));
#select(*m퓬JňʕύXn(cid=,list=tF[hAEgύX\ntF[hCύX\ntF[hAEg߂\ntF[hC߂));

if(evf(*selected)==0); subevent(setbtfd_out,); next; endif;
if(evf(*selected)==1); subevent(setbtfd_in,); next; endif;
if(evf(*selected)==2); fade(out,(type=btdefo,color=btdefo,dep=btdefo,rot=btdefo,wait=btdefo)); 
fade(in,(type=btdefi,color=btdefi,dep=btdefi,rot=btdefi,wait=btdefi)); 
next; endif;
wend;


<setbtfd_out>
select2(+Y[(id=0));
select2(+UCN(id=1));
select2(+cuCh(id=2));
select2(+uCh(id=3));
select2(+Q(id=4));
select2(+~(id=5));
select2(+~(id=6));
select2(+߂(id=10));
select2(*m퓬tF[hAEǧʕύXn(cid=));
if(evf(*selected)==0); setbtfade(out,type=zoom); end; endif;
if(evf(*selected)==1); setbtfade(out,type=mosaic); end; endif;
if(evf(*selected)==2); setbtfade(out,type=blind(4,0)); end; endif;
if(evf(*selected)==3); setbtfade(out,type=blind(0,4)); end; endif;
if(evf(*selected)==4); setbtfade(out,type=voltex(4,0)); end; endif;
if(evf(*selected)==5); setbtfade(out,type=circle); end; endif;
if(evf(*selected)==6); setbtfade(out,type=holcircle); end; endif;
if(evf(*selected)==10); setbtfade(out,*reset); end; endif;


<setbtfd_in>
select2(+Y[(id=0));
select2(+UCN(id=1));
select2(+cuCh(id=2));
select2(+uCh(id=3));
select2(+Q(id=4));
select2(+~(id=5));
select2(+~(id=6));
select2(+߂(id=10));
select2(*m퓬tF[hČʕύXn(cid=));
if(evf(*selected)==0); setbtfade(in,type=zoom); end; endif;
if(evf(*selected)==1); setbtfade(in,type=mosaic); end; endif;
if(evf(*selected)==2); setbtfade(in,type=blind(4,0)); end; endif;
if(evf(*selected)==3); setbtfade(in,type=blind(0,4)); end; endif;
if(evf(*selected)==4); setbtfade(in,type=voltex(4,0)); end; endif;
if(evf(*selected)==5); setbtfade(in,type=circle); end; endif;
if(evf(*selected)==6); setbtfade(in,type=holcircle); end; endif;
if(evf(*selected)==10); setbtfade(in,*reset); end; endif;


#K̉yύX
<sethkrbgm>
music(main,+=,*sv/evf(hkrbgm));
#if(evf(*sw:housebgm)==1); music(main,+=,house3); else; music(main,+=,house); endif;
#if(evf(*sw:pr_honpen)!=0); music(main,+=,house3); endif;


#_
<randomname>
rand(0,4); evflag(*slcmem,=,id(member:l));
evflag(nowval,==,0); if(nowres); member(select,name,=,*kg); member(select,subnames,ruby,=,*ʂƂ); member(select,subnames,english,=,*Nuntora); endif;
evflag(nowval,==,1); if(nowres); member(select,name,=,*); member(select,subnames,ruby,=,*ׂ); member(select,subnames,english,=,*Senbei); endif;
evflag(nowval,==,2); if(nowres); member(select,name,=,*`[o); member(select,subnames,ruby,=,*[); member(select,subnames,english,=,*Tuba); endif;
evflag(nowval,==,3); if(nowres); member(select,name,=,*AWTC); member(select,subnames,ruby,=,*); member(select,subnames,english,=,*Ajisai); endif;
evflag(nowval,==,4); if(nowres); member(select,name,=,*IR[); member(select,subnames,ruby,=,*); member(select,subnames,english,=,*Okoze); endif;

rand(0,4); evflag(*slcmem,=,id(member:ll));
evflag(nowval,==,0); if(nowres); member(select,name,=,*[W); member(select,subnames,ruby,=,*[); member(select,subnames,english,=,*Moojin); endif;
evflag(nowval,==,1); if(nowres); member(select,name,=,*JXe); member(select,subnames,ruby,=,*Ă); member(select,subnames,english,=,*Castella); endif;
evflag(nowval,==,2); if(nowres); member(select,name,=,*t[g); member(select,subnames,ruby,=,*ӂ[); member(select,subnames,english,=,*Flute); endif;
evflag(nowval,==,3); if(nowres); member(select,name,=,*qKoi); member(select,subnames,ruby,=,*Ђ΂); member(select,subnames,english,=,*Higanbana); endif;
evflag(nowval,==,4); if(nowres); member(select,name,=,*AiS); member(select,subnames,ruby,=,*Ȃ); member(select,subnames,english,=,*Anago); endif;

rand(0,4); evflag(*slcmem,=,id(member:lԌ));
evflag(nowval,==,0); if(nowres); member(select,name,=,*P); member(select,subnames,ruby,=,*); member(select,subnames,english,=,*Ken); endif;
evflag(nowval,==,1); if(nowres); member(select,name,=,*`R); member(select,subnames,ruby,=,*傱); member(select,subnames,english,=,*Choco); endif;
evflag(nowval,==,2); if(nowres); member(select,name,=,*sAjJ); member(select,subnames,ruby,=,*҂ɂ); member(select,subnames,english,=,*Pianica); endif;
evflag(nowval,==,3); if(nowres); member(select,name,=,*IICkmtO); member(select,subnames,ruby,=,*ʂ̂ӂ); member(select,subnames,english,=,*Ooinunofuguri); endif;
evflag(nowval,==,4); if(nowres); member(select,name,=,*jV); member(select,subnames,ruby,=,*ɂ); member(select,subnames,english,=,*Nishin); endif;

rand(0,4); evflag(*slcmem,=,id(member:ld_));
evflag(nowval,==,0); if(nowres); member(select,name,=,*f); member(select,subnames,ruby,=,*ł); member(select,subnames,english,=,*Dyari); endif;
evflag(nowval,==,1); if(nowres); member(select,name,=,*Ȉ); member(select,subnames,ruby,=,*킽); member(select,subnames,english,=,*Wataame); endif;
evflag(nowval,==,2); if(nowres); member(select,name,=,*JX^lbg); member(select,subnames,ruby,=,*˂); member(select,subnames,english,=,*Castanet); endif;
evflag(nowval,==,3); if(nowres); member(select,name,=,*^||); member(select,subnames,ruby,=,*ۂ); member(select,subnames,english,=,*Tanpopo); endif;
evflag(nowval,==,4); if(nowres); member(select,name,=,*nCM); member(select,subnames,ruby,=,*͂); member(select,subnames,english,=,*Haigyo); endif;

rand(0,4); evflag(*slcmem,=,id(member:lcq));
evflag(nowval,==,0); if(nowres); member(select,name,=,*jV); member(select,subnames,ruby,=,*ɂ); member(select,subnames,english,=,*Moronishi); endif;
evflag(nowval,==,1); if(nowres); member(select,name,=,*I_S); member(select,subnames,ruby,=,*); member(select,subnames,english,=,*Odango); endif;
evflag(nowval,==,2); if(nowres); member(select,name,=,*h); member(select,subnames,ruby,=,*ǂ); member(select,subnames,english,=,*Drum); endif;
evflag(nowval,==,3); if(nowres); member(select,name,=,*); member(select,subnames,ruby,=,*Ђ܂); member(select,subnames,english,=,*Himawari); endif;
evflag(nowval,==,4); if(nowres); member(select,name,=,*tO); member(select,subnames,ruby,=,*ӂ); member(select,subnames,english,=,*Fugu); endif;

rand(0,4); evflag(*slcmem,=,id(member:l{bg));
evflag(nowval,==,0); if(nowres); member(select,name,=,*lw|TT); member(select,subnames,ruby,=,*ނ[[); member(select,subnames,english,=,*MX-55); endif;
evflag(nowval,==,1); if(nowres); member(select,name,=,*iJ); member(select,subnames,ruby,=,*Ȃ); member(select,subnames,english,=,*Monaka); endif;
evflag(nowval,==,2); if(nowres); member(select,name,=,*g{[); member(select,subnames,ruby,=,*Ƃځ[); member(select,subnames,english,=,*Trombone); endif;
evflag(nowval,==,3); if(nowres); member(select,name,=,*ATKI); member(select,subnames,ruby,=,*); member(select,subnames,english,=,*Asagao); endif;
evflag(nowval,==,4); if(nowres); member(select,name,=,*AT); member(select,subnames,ruby,=,*); member(select,subnames,english,=,*Asari); endif;

rand(0,4); evflag(*slcmem,=,id(member:l̗d));
evflag(nowval,==,0); if(nowres); member(select,name,=,*sb`); member(select,subnames,ruby,=,*҂); member(select,subnames,english,=,*Piccho); endif;
evflag(nowval,==,1); if(nowres); member(select,name,=,*[[); member(select,subnames,ruby,=,*[); member(select,subnames,english,=,*Jelly); endif;
evflag(nowval,==,2); if(nowres); member(select,name,=,*VtH); member(select,subnames,ruby,=,*ӂ); member(select,subnames,english,=,*Xylophone); endif;
evflag(nowval,==,3); if(nowres); member(select,name,=,*A); member(select,subnames,ruby,=,*); member(select,subnames,english,=,*Ayame); endif;
evflag(nowval,==,4); if(nowres); member(select,name,=,*NQ); member(select,subnames,ruby,=,*炰); member(select,subnames,english,=,*Kurage); endif;

rand(0,4); evflag(*slcmem,=,id(member:lKCRc));
evflag(nowval,==,0); if(nowres); member(select,name,=,*XP); member(select,subnames,ruby,=,*); member(select,subnames,english,=,*Sukesan); endif;
evflag(nowval,==,1); if(nowres); member(select,name,=,*Ƃ); member(select,subnames,ruby,=,*Ƃ); member(select,subnames,english,=,*Karintou); endif;
evflag(nowval,==,2); if(nowres); member(select,name,=,*ObP); member(select,subnames,ruby,=,*); member(select,subnames,english,=,*Glocken); endif;
evflag(nowval,==,3); if(nowres); member(select,name,=,*~); member(select,subnames,ruby,=,*); member(select,subnames,english,=,*Ume); endif;
evflag(nowval,==,4); if(nowres); member(select,name,=,*ARE); member(select,subnames,ruby,=,*񂱂); member(select,subnames,english,=,*Ankou); endif;

rand(0,4); evflag(*slcmem,=,id(member:la));
evflag(nowval,==,0); if(nowres); member(select,name,=,*SK); member(select,subnames,ruby,=,*); member(select,subnames,english,=,*Gogam); endif;
evflag(nowval,==,1); if(nowres); member(select,name,=,*Xe[L); member(select,subnames,ruby,=,*ā[); member(select,subnames,english,=,*Steak); endif;
evflag(nowval,==,2); if(nowres); member(select,name,=,*eBpj[); member(select,subnames,ruby,=,*ĂςɁ[); member(select,subnames,english,=,*Timpani); endif;
evflag(nowval,==,3); if(nowres); member(select,name,=,*KN); member(select,subnames,ruby,=,*΂); member(select,subnames,english,=,*Bara); endif;
evflag(nowval,==,4); if(nowres); member(select,name,=,*H); member(select,subnames,ruby,=,*); member(select,subnames,english,=,*Sanma); endif;

rand(0,4); evflag(*slcmem,=,id(member:llԂa));
evflag(nowval,==,0); if(nowres); member(select,name,=,*{[j); member(select,subnames,ruby,=,*ځ[ɂ); member(select,subnames,english,=,*Boonin); endif;
evflag(nowval,==,1); if(nowres); member(select,name,=,*f); member(select,subnames,ruby,=,*[߂); member(select,subnames,english,=,*Soumen); endif;
evflag(nowval,==,2); if(nowres); member(select,name,=,*XlA); member(select,subnames,ruby,=,*˂); member(select,subnames,english,=,*Snare); endif;
evflag(nowval,==,3); if(nowres); member(select,name,=,*}[S[h); member(select,subnames,ruby,=,*܂[[); member(select,subnames,english,=,*Marigold); endif;
evflag(nowval,==,4); if(nowres); member(select,name,=,*hWE); member(select,subnames,ruby,=,*ǂ傤); member(select,subnames,english,=,*Dojou); endif;

rand(0,4); evflag(*slcmem,=,id(member:lԌa));
evflag(nowval,==,0); if(nowres); member(select,name,=,*o); member(select,subnames,ruby,=,*΂); member(select,subnames,english,=,*Ban); endif;
evflag(nowval,==,1); if(nowres); member(select,name,=,*^); member(select,subnames,ruby,=,*񂽂); member(select,subnames,english,=,*Wantan); endif;
evflag(nowval,==,2); if(nowres); member(select,name,=,*oCI); member(select,subnames,ruby,=,*΂); member(select,subnames,english,=,*Violin); endif;
evflag(nowval,==,3); if(nowres); member(select,name,=,*TrA); member(select,subnames,ruby,=,*т); member(select,subnames,english,=,*Salvia); endif;
evflag(nowval,==,4); if(nowres); member(select,name,=,*}O); member(select,subnames,ruby,=,*܂); member(select,subnames,english,=,*Maguro); endif;

rand(0,4); evflag(*slcmem,=,id(member:ld_a));
evflag(nowval,==,0); if(nowres); member(select,name,=,*f); member(select,subnames,ruby,=,*ł); member(select,subnames,english,=,*Dyol); endif;
evflag(nowval,==,1); if(nowres); member(select,name,=,*ǂ); member(select,subnames,ruby,=,*ǂ); member(select,subnames,english,=,*Udon); endif;
evflag(nowval,==,2); if(nowres); member(select,name,=,*); member(select,subnames,ruby,=,*); member(select,subnames,english,=,*Koto); endif;
evflag(nowval,==,3); if(nowres); member(select,name,=,*pW[); member(select,subnames,ruby,=,*ς񂶁[); member(select,subnames,english,=,*Pansy); endif;
evflag(nowval,==,4); if(nowres); member(select,name,=,*I); member(select,subnames,ruby,=,*); member(select,subnames,english,=,*Saba); endif;

rand(0,4); evflag(*slcmem,=,id(member:lcqa));
evflag(nowval,==,0); if(nowres); member(select,name,=,*YBs[); member(select,subnames,ruby,=,*ҁ[); member(select,subnames,english,=,*Zirupy); endif;
evflag(nowval,==,1); if(nowres); member(select,name,=,*no[O); member(select,subnames,ruby,=,*͂΁[); member(select,subnames,english,=,*Hamburg); endif;
evflag(nowval,==,2); if(nowres); member(select,name,=,*); member(select,subnames,ruby,=,*); member(select,subnames,english,=,*Onsa); endif;
evflag(nowval,==,3); if(nowres); member(select,name,=,*); member(select,subnames,ruby,=,*); member(select,subnames,english,=,*Sakura); endif;
evflag(nowval,==,4); if(nowres); member(select,name,=,*q); member(select,subnames,ruby,=,*Ђ); member(select,subnames,english,=,*Hirame); endif;

rand(0,4); evflag(*slcmem,=,id(member:l{bga));
evflag(nowval,==,0); if(nowres); member(select,name,=,*AbXB[); member(select,subnames,ruby,=,*[); member(select,subnames,english,=,*Assyeemo); endif;
evflag(nowval,==,1); if(nowres); member(select,name,=,*ĂՂ); member(select,subnames,ruby,=,*ĂՂ); member(select,subnames,english,=,*Tempura); endif;
evflag(nowval,==,2); if(nowres); member(select,name,=,*gm[); member(select,subnames,ruby,=,*߂Ƃ́[); member(select,subnames,english,=,*Metronome); endif;
evflag(nowval,==,3); if(nowres); member(select,name,=,*qKI); member(select,subnames,ruby,=,*Ђ邪); member(select,subnames,english,=,*Hirugao); endif;
evflag(nowval,==,4); if(nowres); member(select,name,=,*); member(select,subnames,ruby,=,*͂܂); member(select,subnames,english,=,*Hamaguri); endif;

rand(0,4); evflag(*slcmem,=,id(member:l̗da));
evflag(nowval,==,0); if(nowres); member(select,name,=,*|^|); member(select,subnames,ruby,=,*ۂۂ); member(select,subnames,english,=,*Potapol); endif;
evflag(nowval,==,1); if(nowres); member(select,name,=,*X[v); member(select,subnames,ruby,=,*[); member(select,subnames,english,=,*Soup); endif;
evflag(nowval,==,2); if(nowres); member(select,name,=,*Vo); member(select,subnames,ruby,=,*΂); member(select,subnames,english,=,*Cymbal); endif;
evflag(nowval,==,3); if(nowres); member(select,name,=,*); member(select,subnames,ruby,=,*); member(select,subnames,english,=,*Suisen); endif;
evflag(nowval,==,4); if(nowres); member(select,name,=,*qgf); member(select,subnames,ruby,=,*ЂƂ); member(select,subnames,english,=,*Hitode); endif;

rand(0,4); evflag(*slcmem,=,id(member:lKCRca));
evflag(nowval,==,0); if(nowres); member(select,name,=,*RbcB[); member(select,subnames,ruby,=,*[); member(select,subnames,english,=,*Kottsy); endif;
evflag(nowval,==,1); if(nowres); member(select,name,=,*T_); member(select,subnames,ruby,=,*炾); member(select,subnames,english,=,*Salad); endif;
evflag(nowval,==,2); if(nowres); member(select,name,=,*Nlbg); member(select,subnames,ruby,=,*ӂ); member(select,subnames,english,=,*Clarinet); endif;
evflag(nowval,==,3); if(nowres); member(select,name,=,*); member(select,subnames,ruby,=,*܂); member(select,subnames,english,=,*Matsu); endif;
evflag(nowval,==,4); if(nowres); member(select,name,=,*JcI); member(select,subnames,ruby,=,*); member(select,subnames,english,=,*Katsuo); endif;

rand(0,4); evflag(*slcmem,=,id(member:lb));
evflag(nowval,==,0); if(nowres); member(select,name,=,*OEU); member(select,subnames,ruby,=,*炤); endif;
evflag(nowval,==,1); if(nowres); member(select,name,=,*hA); member(select,subnames,ruby,=,*ǂ肠); endif;
evflag(nowval,==,2); if(nowres); member(select,name,=,*R[X); member(select,subnames,ruby,=,*[炷); endif;
evflag(nowval,==,3); if(nowres); member(select,name,=,*tVA); member(select,subnames,ruby,=,*ӂꂵ); endif;
evflag(nowval,==,4); if(nowres); member(select,name,=,*}{E); member(select,subnames,ruby,=,*܂ڂ); endif;

rand(0,4); evflag(*slcmem,=,id(member:llԂb));
evflag(nowval,==,0); if(nowres); member(select,name,=,*q[); member(select,subnames,ruby,=,*Ђ[); endif;
evflag(nowval,==,1); if(nowres); member(select,name,=,*oii); member(select,subnames,ruby,=,*΂Ȃ); endif;
evflag(nowval,==,2); if(nowres); member(select,name,=,*NM); member(select,subnames,ruby,=,*); endif;
evflag(nowval,==,3); if(nowres); member(select,name,=,*`[bv); member(select,subnames,ruby,=,*[); endif;
evflag(nowval,==,4); if(nowres); member(select,name,=,*V); member(select,subnames,ruby,=,*Ȃ); endif;

rand(0,4); evflag(*slcmem,=,id(member:lԌb));
evflag(nowval,==,0); if(nowres); member(select,name,=,*|`bgi[); member(select,subnames,ruby,=,*ۂƂȁ[); endif;
evflag(nowval,==,1); if(nowres); member(select,name,=,*ǂĂ); member(select,subnames,ruby,=,*ǂ₫); endif;
evflag(nowval,==,2); if(nowres); member(select,name,=,*R[_[); member(select,subnames,ruby,=,*肱[[); endif;
evflag(nowval,==,3); if(nowres); member(select,name,=,*coL); member(select,subnames,ruby,=,*΂); endif;
evflag(nowval,==,4); if(nowres); member(select,name,=,*JWL); member(select,subnames,ruby,=,*); endif;

rand(0,4); evflag(*slcmem,=,id(member:ld_b));
evflag(nowval,==,0); if(nowres); member(select,name,=,*kf); member(select,subnames,ruby,=,*ʂ); endif;
evflag(nowval,==,1); if(nowres); member(select,name,=,*Z); member(select,subnames,ruby,=,*); endif;
evflag(nowval,==,2); if(nowres); member(select,name,=,*GNg[); member(select,subnames,ruby,=,*ꂭƁ[); endif;
evflag(nowval,==,3); if(nowres); member(select,name,=,*X~); member(select,subnames,ruby,=,*݂); endif;
evflag(nowval,==,4); if(nowres); member(select,name,=,*V[JX); member(select,subnames,ruby,=,*[炩); endif;

rand(0,4); evflag(*slcmem,=,id(member:lcqb));
evflag(nowval,==,0); if(nowres); member(select,name,=,*~{); member(select,subnames,ruby,=,*݂ڂ); endif;
evflag(nowval,==,1); if(nowres); member(select,name,=,*z); member(select,subnames,ruby,=,*); endif;
evflag(nowval,==,2); if(nowres); member(select,name,=,*a); member(select,subnames,ruby,=,*킾); endif;
evflag(nowval,==,3); if(nowres); member(select,name,=,*KI); member(select,subnames,ruby,=,*邪); endif;
evflag(nowval,==,4); if(nowres); member(select,name,=,*Obs[); member(select,subnames,ruby,=,*ҁ[); endif;

rand(0,4); evflag(*slcmem,=,id(member:l{bgb));
evflag(nowval,==,0); if(nowres); member(select,name,=,*p뎮); member(select,subnames,ruby,=,*݂̂낵); endif;
evflag(nowval,==,1); if(nowres); member(select,name,=,*Ӟ); member(select,subnames,ruby,=,*傤); endif;
evflag(nowval,==,2); if(nowres); member(select,name,=,*IK); member(select,subnames,ruby,=,*邪); endif;
evflag(nowval,==,3); if(nowres); member(select,name,=,*e); member(select,subnames,ruby,=,*); endif;
evflag(nowval,==,4); if(nowres); member(select,name,=,*AIM); member(select,subnames,ruby,=,*€); endif;

rand(0,4); evflag(*slcmem,=,id(member:l̗db));
evflag(nowval,==,0); if(nowres); member(select,name,=,*Wo); member(select,subnames,ruby,=,*΂); endif;
evflag(nowval,==,1); if(nowres); member(select,name,=,*); member(select,subnames,ruby,=,*߂); endif;
evflag(nowval,==,2); if(nowres); member(select,name,=,*z); member(select,subnames,ruby,=,*ق); endif;
evflag(nowval,==,3); if(nowres); member(select,name,=,*XC); member(select,subnames,ruby,=,*); endif;
evflag(nowval,==,4); if(nowres); member(select,name,=,*z); member(select,subnames,ruby,=,*ق); endif;

rand(0,4); evflag(*slcmem,=,id(member:lKCRcb));
evflag(nowval,==,0); if(nowres); member(select,name,=,*ztl); member(select,subnames,ruby,=,*قӂ˂); endif;
evflag(nowval,==,1); if(nowres); member(select,name,=,*Е); member(select,subnames,ruby,=,*); endif;
evflag(nowval,==,2); if(nowres); member(select,name,=,*ruXbv); member(select,subnames,ruby,=,*тԂ炷); endif;
evflag(nowval,==,3); if(nowres); member(select,name,=,*|); member(select,subnames,ruby,=,*); endif;
evflag(nowval,==,4); if(nowres); member(select,name,=,*Ci); member(select,subnames,ruby,=,*); endif;


#e
<ikshot>
fc(shot,apr,==,0);  if(nowres); fc(shot,apr,=,1);  fc(shot,move,*0,*0,);  fc(shot,dir,=,*r);  sound(attack1); endif;
fc(shot2,apr,==,0); if(nowres); fc(shot2,apr,=,1); fc(shot2,move,*0,*0,); fc(shot2,dir,=,*d); sound(attack1); endif;
fc(shot3,apr,==,0); if(nowres); fc(shot3,apr,=,1); fc(shot3,move,*0,*0,); fc(shot3,dir,=,*u); sound(attack1); endif;


#ÈłƂ炷
<taimatsu>
if(holcircle(r)>=0 && holcircle(r)<192); holcircle(000000, 192); end; endif;
text(0,uł͉NȂ悤v);


#<hengehanyou>
#member(head, pcond, cond,ωp,!=,0); if(nowres);
#text(1,,u[AȂ񂩖ڂ܂ĂėǂȂcv);
#endif;


#btfstevsR}h
#퓬L̃X^[gAbvς܂ij

#btwaitdownR}h
#̌jGtFNgI܂ő҂

#btresR}h
#퓬ĨACeQbgxAbvȂǂ̏s
#󗓁FftHg̓
#winF̓
#escapeF̓
#loseFsk̓


<enc_napul>
#evflagsw(enc_napul,==,0); if(nowres);
#zukan(enemy:napul,==,0); or; true; if(nowres);
#text(1,,ip[livꂽI);
#evtext(,*=,*ip[livꂽI);
#text(1,,ip[livꂽI);
#\niTCY{Ɍ邪g傾j
#party(check,l,-1,6); text(1,face=*l,%mem[0]u́wip[livxv); evflag(enc1,|=,1);
#evflag(enc1,==,15,,6); text(1,face=*l,%mem[0]uGÃip[͈ȏ̎lmFĂv);
#endif;

#text(0,iv);


<enc_garup>
#text(0,Kv);


<enc_nabirt>
#text(0,io[g);


<enc_napily>
#text(0,is[);


<enc_gapara>
#text(0,Kp);


<enc_shadagee>
#text(0,V_Q[);


<enc_alshada>
#text(0,ArmV_Q[);


<enc_regello>


<enc_lybirzo>


<enc_gelfez>


<enc_tyupoke>


<enc_pregener>


<enc_wolzo>


<enc_galkan>


<enc_pozgan>


<enc_twire>
#evflagsw(enc_doublame,==,0); and; party(check,l); if(nowres); text(1,face=*l,%mem[0]uߊ烄PhBCn悭Hv); endif;
#text(1,face=+head,%mem[h]uߊ烄PhBCn悭Hv);
#text(1,face=uam,ߊ烄PhBCn悭H);


<enc_boodogar>
if(evf(*sw:bt_noparty) == 0 && evc(ex_enemy,id(enemy:boodogar)) == 0); evcombi(ex_enemy,|=,enemy,boodogar); resevent(enc_boodogar_sub,); endif;
#evflagsw(bt_noparty,==,0); and; evflagsw(ex_boodogar,==,0); if(nowres); evflagsw(ex_boodogar,=,1); resevent(enc_boodogar_sub,); endif;
#evflagsw(bt_noparty,==,0); and; evcombi(ex_enemy,!&,enemy,boodogar); if(nowres); evcombi(ex_enemy,|=,enemy,boodogar); resevent(enc_boodogar_sub,); endif;


<enc_boodogar_sub>
text(1,(face=+evbch,swait=-1),%bch[e]u̎҂BʔÃthV̉aHɂĂv);
#text(1,(face=+evbch,swait=-1),%bch[e]uip[Rcɏ˂҂BʔÃthV̉aHɂĂv);


<enc_garac>
if(evf(*sw:bt_noparty) == 0 && evc(ex_enemy,id(enemy:garac)) == 0); evcombi(ex_enemy,|=,enemy,garac); resevent(enc_garac_sub,); endif;
#evflagsw(bt_noparty,==,0); and; evflagsw(ex_garac,==,0); if(nowres); evflagsw(ex_garac,=,1); resevent(enc_garac_sub,); endif;
#evflagsw(bt_noparty,==,0); and; evcombi(ex_enemy,!&,enemy,garac); if(nowres); evcombi(ex_enemy,|=,enemy,garac); resevent(enc_garac_sub,); endif;


<enc_garac_sub>
text(1,(face=+evbch,swait=-1),%bch[e]uقAip[Rcɏ˂Ƃ́AƋȂB쏜݂̂łȁv);
#text(1,face=garac,KbNuip[Rcɏ˂Ȃ҂ǂ́A쏜݂̂łȁv);
#text(1,face=garac,KbNuip[Rcɏ˂Ƃ́AƋȂB쏜Kvłȁv);
#text(1,face=garac,KbNuقAip[Rcɏ˂Ƃ́BȂɁA쏜ꂽł邩v);
#text(1,face=garac,KbNuip[Rcɏ˂Ƃ́AƋłȁBق^Đi悤v);
#text(1,face=garac,KbNuip[Rcɏ˂Ȃ҂ɂ́AقKvłȁv);
#text(1,face=garac,KbNuقAip[Rcɏ˂ł邩BƋȂv);
#text(1,face=garac,KbNuققAȂ͂ł̂BMấ̗A׈̂߂ɍėpĐi悤v);


<df_garac>
#evflagsw(banzai,==,1);
if(evf(*sw:ex_banzai) == 0);
evflagsw(ex_banzai,=,1);
evflagsw(bt_nobattle,=,1);
return;
text(1,(face=+evbch:nrm,swait=-1),%bch[e]uip[Rccc΁[[[[[IIIv);
evflagsw(bt_nobattle,=,0);
#else;
#eCxg̎s܂Őił܂΍
#return;
endif;


<enc_wehi>
if(evf(*sw:bt_noparty) == 0 && evc(ex_enemy,id(enemy:wehi)) == 0); evcombi(ex_enemy,|=,enemy,wehi); resevent(enc_wehi_sub,); endif;
#evflagsw(bt_noparty,==,0); and; evflagsw(ex_wehi,==,0); if(nowres); evflagsw(ex_wehi,=,1); resevent(enc_wehi_sub,); endif;
#evflagsw(bt_noparty,==,0); and; evcombi(ex_enemy,!&,enemy,wehi); if(nowres); evcombi(ex_enemy,|=,enemy,wehi); resevent(enc_wehi_sub,); endif;


<enc_wehi_sub>
text(1,(face=+evbch,swait=-1),%bch[e]uЂЂЂЂAlf[XIv);
#ÃGr̂悤ɃXC[gf[X˃bI


<enc_atwire>
#party(check,l,,17); text(1,face=*l,%mem[0]û悤Ȃ񂾂IH@ʂɑnė͂Ȃv);


<enc_nyamapoogi>


<enc_medasorm>


<enc_napaler>


<enc_garaper>


<enc_nabatos>


<enc_napilite>


<enc_gaprill>


<enc_gartyo>


<enc_ryavan>


<enc_regellgo>


<enc_lybirzel>


<enc_belzan>


<enc_munjege>


<enc_weigy>


<enc_benjairar>


<enc_doublame>


<enc_pigmarg>


<enc_tsannue>


<enc_steagral>


<enc_nyamapregen>


<enc_gidasorm>


<enc_napelest>


<enc_garepest>


<enc_nafatlus>


<enc_dakyarmee>


<enc_napilaty>


<enc_gaprette>


<enc_pregenia>


<enc_wolzards>


<enc_galkin>


<enc_pozgazn>


<enc_wagurtyu>


<enc_ryuvzorm>


<enc_regellgon>


<enc_lybirzelk>


<enc_chorma>


<enc_rakatsu>


<enc_rukanamu>


<enc_rashuuzan>


<enc_garidrieni>


<df_garidrieni>
#evflagsw(banzai,==,1); and; not; bc(>,al2,exis); if(nowres);
#subevent(df_garac,);
#else;
#eCxg̎s܂Őił܂΍
#return;
#endif;


<enc_idsuchi>


<enc_zoclops>


<enc_napoluni>


<enc_garupade>


<enc_golzem>


<enc_shajep>


<enc_vala>
resevent(enc_vala_sub,);


<enc_vala_sub>
if(map==id(map:ip[{aSe));
subevent(kessenmode,);
scroll(128,0,16); return;
text(1,(face=+evbch,swait=-1,ym=b),%bch[e]uǂł|ė邪ǂ낤v);
scroll(-128,0,16); return;
bc(>0,alv,action,Ή,0,0,*auto); return;
#bc(action,>m2,eXgP,act0,<m1); return; return;
party(,check,l); and; member(*l,exilev,mca); if(nowres);
scroll(-128,-16,16); return;
bc(>0,alv,exis); if(nowres); text(1,(face=*l:sri,swait=-1,ym=t),%mem[*l]uIIv); else; text(1,(face=*l,swait=-1,ym=t),%mem[*l]u[^[L܂v); endif;
scroll(128,16,16); return;
endif;
endif;


#om[pj
<df_vala>
#evflag(main,<,2,6,); 
#evflag(enc4,&,64,6,);
if(map==id(map:ip[{aSe));
#text(1,(face=valanorpa,swait=-1),om[pu܂cIHv);
evflagsw(bt_nobattle,=,1);
return;
text(1,(face=+evbch:nrm,swait=-1),%bch[e]uʁccv);
evflagsw(bt_nobattle,=,0);
text(1,(face=+evbch,swait=-1),%bch[e]uʂ[IIv);
#evflag(enc4,|=,64);
#else;
#eCxg̎s܂Őił܂΍
#return;
endif;

if(map==id(map:ip[{an));
not; bc(>,al2,exis); if(nowres);
bc(*self,,downefc,=,down5);
else;
bc(*self,,downefc,=,down3);
endif;
endif;


#<enc_vala1>
#subevent(defbtst,);
#subevent(enc_vala,);


#om[pinpj
<enc_vala2>
#bttopdsp(̏p,valanorpa);
text(1,(face=valanorpa,swait=-1,ym=t),om[pu䂪̏pv);
subevent(vlbun,);
subevent(defbtst,);
#bc(action,>2,Ɖ,act0,<m1); bc(action,>0,Ⓚ,act0,<m1); return;
#subevent(enc_vala,);
#text(1,(face=valanorpa,ym=t),om[puip[͖v);
#bc(>0,,pcond, cond,,+=,omĐ(inf)); bc(>1,,pcond, cond,,+=,omĐ(inf)); bc(>2,,pcond, cond,,+=,omĐ(inf));
party(,check,l); and; member(*l,exilev,mca); if(nowres); text(1,(face=*l:sri,swait=-1),%mem[*l]uɑ悤ƁIv); endif;


#om[p
<vlbun>
bc(*self,al2,startan,crg,); bc(*self,al2,waitstan); return;
#while; bc(>0,,move,=480,=144,4); or; bc(>1,,move,=376,=224,6); or; bc(>2,,move,=528,=256,3); if(nowres); return; next; endif; wend;
while; bc(>0,,move,=480,=144,6); or; bc(>1,,move,=376,=224,6); or; bc(>2,,move,=528,=256,6); if(nowres); return; next; endif; wend;
bc(*self,al2,endan); bc(*self,al2,waitedan);


#om[p^[Cxg
<trn_vala>
#mapis(ip[{an); and; bc(*self,mca,exis); and; bc(+*valanorpa,-alv,exis); and; not; bc(*self,,pcond,turn,%,3); if(nowres);
bc(*self,mca,exis); and; bc(+*valanorpa,-alv,exis); and; not; bc(*self,,pcond,turn,%,3); if(nowres && map==id(map:ip[{an));
#bttopdsp(VNoCu,kourin);

#bc(*self,3,startan,crg,); bc(*self,3,waitstan); return;
#fade(out,fade,c0c0c0,255,48);
#bcslc(+*valanorpa,-alv); while; if(nowres); bc(*select,,enekind,==,valanorpa); if(nowres); bc(*select,,pcond, cond,,+=,((-inf),,⋋)); endif; bcslc(next,-alv); next; endif; wend;
bcslc(+*valanorpa,-alv); while; if(nowres); bc(*select,,enekind,==,valanorpa); if(nowres); bc(*select,,recover,0, (vp:max,ep:max),(n(-inf),(-inf),(-inf),(-inf))); bc(*select,,move,~0,~0,400); endif; bcslc(next,-alv); next; endif; wend;
#fade(in,fade,c0c0c0,255,48);
#bc(*self,3,endan); bc(*self,3,waitedan);

subevent(vlbun,);

#fade(out,fade,c0c0c0,255,48); bc(>0,,pcond, cond,,+=,(-inf)); bc(>1,,pcond, cond,,+=,(-inf)); bc(>2,,pcond, cond,,+=,(-inf)); fade(in,fade,c0c0c0,255,48);
endif;


<enc_mutou>
resevent(trn_mutou,);


<trn_mutou>
#mapis(Agln); and; bc(*self,mca,exis); unif(nowres); end; endif;
bc(*self,mca,exis); unif(nowres&&map==id(map:Agln)); end; endif;

return;
formem(party); not; member(select,pcond, cond,,&,(,,Q)); nextmem(exis); unif(nowres); end; endif;

sound(boon); fade(out,(type=fade,color=000000,wait=48));
formem(party);
member(select,pcond, cond,,&,(,,Q)); unif(nowres); member(select,pcond, cond,,+=,); endif;
nextmem();
fade(in,(type=fade,color=000000,wait=48));

#bc(*self,mca,exis); and; bc(+,-alv,exis); and; bc(*self,,pcond, cond,,<,(U,h)); if(nowres); 
#bc(*self,,waitedan);
#bttopdsp(O,kourin);

#bc(*self,al2,startan,crg,); bc(*self,al2,waitstan); return;
#fade(out,(type=fade,color=000000,wait=48));
#bc(*self,,pcond, cond,,+=,(U(3),h(3)));
#fade(in,(type=fade,color=000000,wait=48));
#bc(*self,al2,endan); bc(*self,al2,waitedan);

#endif;


<enc_boruv>


<enc_demond>


<enc_grpeng>
if(evf(*sw:bt_noparty) == 0 && evc(ex_enemy,id(enemy:grpeng)) == 0); evcombi(ex_enemy,|=,enemy,grpeng); resevent(enc_grpeng_sub,); endif;
#evflagsw(bt_noparty,==,0); and; evcombi(ex_enemy,!&,enemy,grpeng); if(nowres); evcombi(ex_enemy,|=,enemy,grpeng); resevent(enc_grpeng_sub,); endif;


<enc_grpeng_sub>
text(1,(face=+evbch,swait=-1),%bch[e]uȃAeB[̖Q[͋pIv);
#text(1,(face=+evbch,swait=-1),%bch[e]uȃAeB[̖E͋pIv);
#text(1,(face=+evbch,swait=-1),%bch[e]uH̃z[y[WNzĂ͂ȂȂI@͎vȂˁHv);
#text(1,(face=+evbch,swait=-1),%bch[e]uH̃z[y[WN悤Ȗfȓz͋pIv);
#text(1,(face=+evbch,swait=-1),%bch[e]uSŋ߂̎҂͖ĆE֐SŋCɐHBpIv);
#text(1,(face=+evbch,swait=-1),%bch[e]uMl̍D݂Ȃ񂩋pIv);
#text(1,(face=+evbch,swait=-1),%bch[e]uȃQ[ɉloꂳ₪āccނB܂ŗJ炵Ă炠Iv);
#text(1,(face=+evbch,swait=-1),%bch[e]uȒx̒ႢQ[J₪āA킴킴_E[hĂꂽlւ̔zƂ͖̂ˁH@ނBOŗJ炵Ă炠Iv);
#text(1,(face=+evbch,swait=-1),%bch[e]uȃQ[Ƃ͌ĂѓJ₪āccނBOŗJ炵Ă炠Iv);
#text(1,(face=+evbch,swait=-1),%bch[e]uȂ񂾂˂̃Q[̃AeB[̖́ccނBOŗJ炵Ă炠Iv);


<enc_devigry>
if(evf(*sw:bt_noparty) == 0 && evc(ex_enemy,id(enemy:devigry)) == 0); evcombi(ex_enemy,|=,enemy,devigry); resevent(enc_devigry_sub,); endif;
#evflagsw(bt_noparty,==,0); and; evcombi(ex_enemy,!&,enemy,devigry); if(nowres); evcombi(ex_enemy,|=,enemy,devigry); resevent(enc_devigry_sub,); endif;


<enc_devigry_sub>
text(1,(face=+evbch,swait=-1),%bch[e]u₟ȁNB̎炵Ă悤Iv);


<enc_maru>


<enc_rkdns>


<enc_shina>
#if(evf(*sw:bt_noparty) == 0 && evc(ex_enemy,id(enemy:shina)) == 0); evcombi(ex_enemy,|=,enemy,shina); resevent(enc_shina_sub,); endif;
#evflagsw(bt_noparty,==,0); and; evcombi(ex_enemy,!&,enemy,shina); if(nowres); evcombi(ex_enemy,|=,enemy,shina); resevent(enc_shina_sub,); endif;


<enc_shina_sub>
#text(1,(face=+evbch,swait=-1),%bch[e]u̐E͂̓LmRł邪Aَ҂̓^PmRhɂČłv);
#text(1,(face=+evbch,swait=-1),%bch[e]u̐E͂̓LmRł邪Aَ҂̓^PmRhłBĂȂ킯łQbIv);
#text(1,(face=+evbch,swait=-1),%bch[e]ũQ[̓LmRł邪Aَ҂̓^PmRhłv);
#text(1,(face=+evbch,swait=-1),%bch[e]u҂̉ߋ삩ȂƂȂoėłBQIv);


<enc_senksha>
if(evf(*sw:bt_noparty) == 0 && evc(ex_enemy,id(enemy:senksha)) == 0); evcombi(ex_enemy,|=,enemy,senksha); resevent(enc_senksha_sub,); endif;
#evflagsw(bt_noparty,==,0); and; evcombi(ex_enemy,!&,enemy,senksha); if(nowres); evcombi(ex_enemy,|=,enemy,senksha); resevent(enc_senksha_sub,); endif;


<enc_senksha_sub>
text(1,(face=+evbch,swait=-1),%bch[e]u~[nII@^VR[hĂAIv);
#text(1,(face=+evbch,swait=-1),%bch[e]uE̍Ő[Ƒ钽̗́AƂƑ̖ڂɏĂt郈Vv);
#text(1,(face=+evbch,swait=-1),%bch[e]u̐̂ƂŐ[Ƒ钽̗́AƂƖڂɏĂt郈Vv);
#text(1,(face=+evbch,swait=-1),%bch[e]u䂪̍Ő[Zp̗͂邽߂ȂAȃw{Q[ɂo邠v);


<enc_dhmo>
if(evf(*sw:bt_noparty) == 0 && evc(ex_enemy,id(enemy:dhmo)) == 0); evcombi(ex_enemy,|=,enemy,dhmo); resevent(enc_dhmo_sub,); endif;
#evflagsw(bt_noparty,==,0); and; evcombi(ex_enemy,!&,enemy,dhmo); if(nowres); evcombi(ex_enemy,|=,enemy,dhmo); resevent(enc_dhmo_sub,); endif;


<enc_dhmo_sub>
text(1,(face=+evbch,swait=-1),%bch[e]umȂȂ|ėȂBqqbIv);
#text(1,(face=+evbch,swait=-1),%bch[e]uɂȂȂ|ėȂBqqbIv);


<enc_coral>


<trn_coral>
bc(*self,,status,mvp,all,);
evflag(nowval,/=,2);
evflag(instant1,=,evf(nowval));
bc(*self,,pcond, vp,);
evflag(nowval,<,evf(instant1)); and; not; btchdmg(&,Ԕ\); if(nowres);
evflagsw(bt_nodoctr,=,1);
sound(sleep); fade(out,(type=fade,color=ffff00,wait=64)); btchdmg(|=,Ԕ\); fade(in,(type=fade,color=ffff00,wait=64));
evflagsw(bt_nodoctr,=,0);
endif;


<enc_ikenaitsuki>
resevent(enc_ikenaitsuki_sub,);


<enc_ikenaitsuki_sub>
if(map==id(map:nCp[v[));
subevent(kessenmode(2),);
endif;


<enc_ikenai2>
#mapis(nCp[v[); unif(nowres);
unif(map==id(map:nCp[v[));
#evflagsw(moonbari,=,0);
#fade(out,fade,ff0000,255,48);
#bc(*self,alv,pcond, cond,,+=,); evflagsw(moonbari,=,0);
#fade(in,fade,ff0000,255,48);
#resevent(enc_ikenai2_sub,);
resevent(tsukikage,);
endif;


<enc_ikenai2_sub>
#return;
#zukan(enemy:ikenai2,==,0); if(nowres);
#text(1,,FH[hII);
#endif;

#bc(*self,,enekind,=,ikenai2);
#subevent(encenemy,);
#btfstevs;
#return;
#subevent(enc_ikenai2,);
#subevent(kessenmode,);
music(main,=,boss2:0); evflagsw(bt_noescape,=,1);
fade(out,(type=fade,color=ff0000,wait=48));
#btfield((hyper_vol2,starvol3));
btfield(hyper_vol2);
#bc(pcond, ,, cond,,+=,[̎灪]3[ˏ]);
bc(*self,,pcond, cond,,+=,);
fade(in,(type=fade,color=ff0000,wait=48));
#subevent(kessenmode(2),);
#formem(party); member(select,equip,*each,==,̈); or; member(select,equip,*each,==,); nextmem(exis); if(nowres); evflagsw(moonbari,=,0); endif;

#subevent(iktms,);

#endif;


#Ȃϐg
<ikchange>
#evflagsw(pr_dfmoon,==,1); and; evflagsw(pr_deckbr,==,1); and; item(check:eq,ɒ,1); and; mapis(nCp[v[); if(nowres);
evflagsw(pr_dfmoon,==,1); and; evflagsw(pr_deckbr,==,1); and; item(check:eq,ɒ,1); if(nowres&&map==id(map:nCp[v[));
# and; evflagsw(pr_gcseis,==,1);
#evflag(deckbr,==,0,1,); evflag(gcseis,==,0,1,); mapis(nCp[v[,,1);
#bcslc(,); bc(pcond, cond,,+=,-); bc(pcond, vp,+=,99999999);
evflagsw(bt_nodoctr,=,1);
bc(*self,,pcond, cond,,+=,((-inf),،n(-inf)));
#ÌŏԂ̍ۂɃ[VȂȂLB
#btres;
#label(2); return; bc(move,1,0,+0,=800,8,2);
#bc(set,,ikenai2,,); return;
#label(3); return; bc(move,1,0,+0,=240,8,3);
#return; 
#music(silent,0);
#bc(action,>,ҋ@,act0,); return;

#_[WANVN
return;

#fade(mosaic,1,255,48); fade(mosaic,2,255,48);
#fade(voltex,1,0000ff,3,1,48); fade(voltex,2,0000ff,3,1,48);
#fade(blind,1,00ff00,5,1,48); fade(blind,2,00ff00,1,5,48);

#ωANV邽
return;
#bc(*self,,pcond, cond,,+=,((-inf),،n(-inf))); evflagsw(bt_nodoctr,=,0); return;

sound(uu);
bc(*self,,startan,cng,);
fade(out,(type=fade,color=000000,wait=128));
bc(*self,,endan);
bc(*self,,enekind,+=,ikenai2,down6); evflagsw(ikchanged,=,1);
fade(in,(type=fade,color=000000,wait=48));

evtext(subtx1,=,*);
zukan(enemy:ikenai2,==,0); if(nowres); evtext(subtx1,*=,*%ene[*ikenai2].sn[*ryakumei]II); endif;
#zukan(enemy:ikenai2,==,0); if(nowres); evtext(subtx1,*=,*FH[hII); endif;
btfstevs; return;
evtext(subtx1,!=,*); if(nowres); text(1,,%str[*subtx1]); endif;

#ԕ\XVpijiJE^[̍UOɎ󂯂Ă܂Lj
#evflag(*nobattle,=,0); return;

#aՂ΍
subevent(enc_ikenai2_sub,);

evflagsw(bt_nodoctr,=,0);

#else;
#eCxg̎s܂Őił܂΍
#return;

endif;


#ȂF^[ɔp
<trn_ikenai2>
bc(*self,alv,exis); unif(nowres); end; endif;

#bc(*self,,turn,%,6); if(nowres); end; endif;
bc(*self,,pcond,turn,%,6); if(nowres); end; endif;

#ԉ
bc(*self,alv,pcond, cond,,<,((-inf),(-inf),(-inf))); if(nowres);
evflagsw(bt_nodoctr,=,1);
fade(out,(type=fade,color=ffffff,wait=48)); bc(*self,alv,pcond, cond,,+=,((-inf),(-inf),(-inf))); fade(in,(type=fade,color=ffffff,wait=48));
evflagsw(bt_nodoctr,=,0);
endif;

#bZ[W
#Zł̓bZ[WoȂ߁AΏۂɃo[邩mF
bc(<,alv,exis); and; bc(*self,alv,exis); if(nowres);
bc(*self,alv,pcond, cond,,==,0); if(nowres);
if(evf(*sw:moonbarimsg2) == 0); return;
text(1,face=ikenai2,uقÁw%cond[*]xłj邷ׂĂ邩B͉xłĐ邺Iv);
#text(1,face=ikenai2,uقÃoAłj邷ׂĂ邩B̃oA͖sIv);
evflagsw(moonbarimsg2,=,1); endif;
else;
if(evf(*sw:moonbarimsg1) == 0); return;
text(1,face=ikenai2,uÁw%cond[*]xjȂAɏ͓̂ƎvH@ցIv);
#text(1,face=ikenai2,uẪoAjȂAɏ͓̂ƎvH@ցIv);
evflagsw(moonbarimsg1,=,1); endif;
endif;
endif;

#U
bcslc(-,alv); if(nowres); bc(*self,alv,action,FHe,1,1,*select,alv); return; endif;
bcslc(-next,alv); unif(nowres); bcslc(-,alv); endif; if(nowres); bc(*self,alv,action,FHe,1,0,*select,alv); return; endif;
bcslc(-next,alv); unif(nowres); bcslc(-,alv); endif; if(nowres); bc(*self,alv,action,FHe,1,0,*select,alv); return; endif;

#e̊Ô݂̓
bcslc(-,alv); and; bc(*self,alv,exis); if(nowres);
bc(*self,alv,pcond, cond,,==,0); if(nowres);
#evflagsw(moonbari,==,1); if(nowres); text(1,face=ikenai2,uقÃoAłj邷ׂĂ邩B̃oA͖sB䂪r̂Ȃ\{ryv); endif;
bttopdsp(e̊OĐI,,moon);
subevent(tsukikage,); evflagsw(moonbari,=,0);
else;
bc(*self,alv,pcond, ep,+=,24);
bcslc(-,alv); if(nowres); bc(*self,alv,action,Փ,1,1,*select,alv); return; endif;
endif;
endif;


#e̊OĐ
<tsukikage>
fade(out,(type=fade,color=ff0000,wait=48));
bc(*self,alv,pcond, cond,,+=,);
fade(in,(type=fade,color=ff0000,wait=48));


<enc_yj>
evflag(enzyj,=,id(zukanon:zk2));
#evflag(enzyj2,=,id(zukanon:zk2));
#zukan(sysm:yjs,=,1);


<enzyj2_on>
if(event(yj5enable)); evflag(enzyj2,=,id(zukanon:zk2)); endif;


<enc_yj-a1>
subevent(enc_yj,);
#zukan(face:yj-a1,=,1); zukan(face:yj-a1-2,=,1);


<enc_yj-b1>
subevent(enc_yj,);


<enc_yj-c1>
subevent(enc_yj,);


<enc_yj-a2>
subevent(enc_yj,);
if(evf(*sw:bt_noparty) == 0 && evc(ex_enemy,id(enemy:yj-a2)) == 0); evcombi(ex_enemy,|=,enemy,yj-a2); resevent(enc_yj-a2_sub,); endif;
#evflagsw(bt_noparty,==,0); and; evcombi(ex_enemy,!&,enemy,yj-a2); if(nowres); evcombi(ex_enemy,|=,enemy,yj-a2); resevent(enc_yj-a2_sub,); endif;


<enc_yj-a2_sub>
text(1,(face=+evbch,swait=-1),u`AႢ@ՂT[rXĂcv);
#zukan(face:yj-a2,=,1); zukan(face:yj-a2-2,=,1);


<enc_yj-b2>
subevent(enc_yj,);
if(evf(*sw:bt_noparty) == 0 && evc(ex_enemy,id(enemy:yj-b2)) == 0); evcombi(ex_enemy,|=,enemy,yj-b2); resevent(enc_yj-b2_sub,); endif;
#evflagsw(bt_noparty,==,0); and; evcombi(ex_enemy,!&,enemy,yj-b2); if(nowres); evcombi(ex_enemy,|=,enemy,yj-b2); resevent(enc_yj-b2_sub,); endif;


<enc_yj-b2_sub>
text(1,(face=+evbch,swait=-1),uӁ`%o[*heart]@݁[ȁA̗ɂăAEQE%o[*heart]v);


<enc_yj-c2>
subevent(enc_yj,);
if(evf(*sw:bt_noparty) == 0 && evc(ex_enemy,id(enemy:yj-c2)) == 0); evcombi(ex_enemy,|=,enemy,yj-c2); resevent(enc_yj-c2_sub,); endif;
#evflagsw(bt_noparty,==,0); and; evcombi(ex_enemy,!&,enemy,yj-c2); if(nowres); evcombi(ex_enemy,|=,enemy,yj-c2); resevent(enc_yj-c2_sub,); endif;


<enc_yj-c2_sub>
#text(1,(face=+evbch,swait=-1),uł傤cBɂx݂Ă܂cv);
text(1,(face=+evbch,swait=-1),u܂AƂĂ̂lqccBɊyɂĂ܂傤ccv);
#text(1,(face=+evbch,swait=-1),uƂĂ̂lqłˁccBɂx݂Ă܂ccv);
#text(1,(face=+evbch,swait=-1),uƂĂ̂lqłႢ܂ˁccBɂx݂Ă܂傤ccv);


<enc_yj-a3>
subevent(enc_yj,);
#zukan(face:yj-a3,=,1); zukan(face:yj-a3-2,=,1);


<enc_yj-b3>
subevent(enc_yj,);


<enc_yj-c3>
subevent(enc_yj,);


<enc_yj-a4>
subevent(enc_yj,);
#evflagsw(pflast,=,0);
resevent(enc_yj-a4_sub,);
#zukan(face:yj-a4,=,1); zukan(face:yj-a4-2,=,1); zukan(face:yj-a4-crm,=,1); zukan(face:yj-a4-dmg,=,1); zukan(face:yj-a4-prh,=,1);


<enc_yj-a4_sub>
#evflagsw(ex_yj-a4,==,0); if(nowres); evflagsw(ex_yj-a4,=,1); text(1,face=yj-a4,uA悭킽ꂽˁcBՂy݂܂cv); endif;

subevent(allism,); unif(nowres); evflagsw(checkallm,=,0); endif;
#subevent(allism,); if(nowres); evflagsw(checkallm,=,1); else; evflagsw(checkallm,=,0); endif;
#evflagsw(pfnext,=,1);

#formem(party); subevent(pfable,); nextmem(exis); if(nowres);
#formem(party); subevent(pfable2,); nextmem(exis); if(nowres); subevent(pfield,); endif;

#evflagsw(pfnext,=,0);
subevent(pfield,);

#endif;
#subevent(encenemy,0);
#evflagsw(pfnext,=,1);


#ڍוs`Sj
<df_yj-a4>
#evflag(*nobattle,=,3); return; text(0,eXgQ);
#mapis(X̃_W); and; bc(<,al2,exis); and; subevent(allism,); and; evflagsw(checkallm,==,1); if(nowres);
evflagsw(pflast,==,0); and; not; bc(>,al2,exis); and; bc(<,al2,exis); and; subevent(allism,); and; evflagsw(checkallm,==,1); if(nowres);
evflagsw(pflast,=,1);
evflagsw(bt_nobattle,=,1);
return;
bc(*self,,enekind,==,yj-a5); and; evflagsw(dspyj5img,==,1); or; bc(*self,,enekind,==,yj-a4); if(nowres);
text(1,(face=+evbch:los,swait=-1),u[AalɂꂿႤȂāccƂĂAKcccv);
#ō
endif;
evflagsw(bt_nobattle,=,0);
#else;
#eCxg̎s܂Őił܂΍
#return;
endif;


<enc_yj-a5>
subevent(enc_yj,);
#evflagsw(pflast,=,0);
resevent(enc_yj-a4_sub,);
#zukan(face:yj-a5,=,1); zukan(face:yj-a5-2,=,1); zukan(face:yj-a5-crm,=,1); zukan(face:yj-a5-dmg,=,1); zukan(face:yj-a5-prh,=,1);


#摜ωĂ烊Zbg
<revertpic>
#bc(*self,al2,enekind,==,yj-a4); and; bc(*self,,picset,bch,org:nrm,!=,yj-a4); if(nowres);
bc(*self,,picset,bch,org:nrm,!=,*reset:nrm); if(nowres);
fade(out,(type=fade,color=ff80c0,wait=48));
bc(*self,,picset,bch,org,=,*reset);
bc(*self,,picset,face,org,=,*reset);
fade(in,(type=fade,color=ff80c0,wait=48));
endif;


#np
<pfable>
##member(select,job,,==,); or; member(select,job,,==,); if(nowres);
#member(select,job,,exis,,n); if(nowres);
#member(select,exilev,al2); if(nowres);
##bc(*self,,turn2,>=,20); and; member(select,pcond, vp,>,1); or; 
#member(select,pcond, cond,,<,8); and; bc(*self,,enekind,==,yj-a5); or; member(select,pcond, cond,,<,4);
##member(select,status, elem,,all,<,!); if(nowres); member(select,pcond, cond,,<,2); else; member(select,pcond, cond,,<,2); endif;
##member(select,status, elem,,all,<,!); if(nowres); member(select,pcond, cond,,<,3); else; member(select,pcond, cond,,<,1); endif;
#endif;
#endif;

bc(*select,,cutelem,n,all,>,0); if(nowres);
bc(*select,,exilev,al2); if(nowres);
bc(*select,,checkfmt,-); if(nowres);
bc(*select,,pcond, cond,,<,8); and; bc(*self,,enekind,==,yj-a5); or; bc(*select,,pcond, cond,,<,4); or; bc(*select,,pcond, cond,am,>,0);
#bc(*select,,pcond, cond,,<,4); or; bc(*select,,pcond, cond,am,>,0);
else;
bc(*select,,pcond, cond,,>,0); or; bc(*select,,pcond, cond,am,==,0);
endif;
endif;
endif;


#ni^[pj
<pfield_t>
subevent(allism,); unif(nowres); evflagsw(checkallm,=,0); endif;
#bc(*self,mca,exis); and; not; bc(*self,mca,turn,%,5); if(nowres);
#evflagsw(pfnext,==,0); or; not; bc(*self,,turn,%,5); if(nowres);
#not; bc(*self,,turn,%,5); if(nowres);

#JE^[ʂ̎s
return;

#formem(party); subevent(pfable,); nextmem(exis); if(nowres);
#evflagsw(pfnext,=,1);
subevent(pfield,);
#endif;
#endif;


#n^
<pfield>
#bc(*self,mca,exis); unif(nowres); end; endif;
bc(*self,al2,exis); unif(nowres); end; endif;

#摜ωĂ烊Zbg
subevent(revertpic,);

#formem(party); subevent(pfable,); nextmem(exis); if(nowres);
#bcslc(-,alv); while; unif(nowres); end; endif; subevent(pfable,); unif(nowres); bcslc(-next,alv); next; endif; wend;
bcslc(,alv); while; unif(nowres); end; endif; subevent(pfable,); unif(nowres); bcslc(next,alv); next; endif; wend;
#evflagsw(pfnext,==,1); if(nowres); text(0,eXg); endif;
evflagsw(bt_nodoctr,=,1);

#Z⍬ł͗GoȂ悤ɂ邽߁AΏۂɃo[邩mF
evflag(instant1,=,0); bcslc(-,alv); while; if(nowres); subevent(pfable,); and; bc(*select,,fmt,==,<); if(nowres); evflag(instant1,=,2); endif; bcslc(-next,alv); next; endif; wend;

bc(*self,,enekind,==,yj-a4); or; bc(*self,,enekind,==,yj-a5); and; evflag(instant1,==,2); and; evflagsw(pfnext,==,0); if(nowres);
bc(*self,,enekind,==,yj-a4); if(nowres);
image(0,set, picture:yj-a4-pic,0,0,368,8,0,1960,1960,0,0); image(0,scl, 0,0,16,-60,-60,0); wait(16); image(0,scl, 0,0,0,0,0,0); image(0,anis, 8); image(0,anii, 1);
endif;
bc(*self,,enekind,==,yj-a5); and; evflagsw(dspyj5img,==,1); if(nowres);
image(0,set, picture:yj-a5-pic,0,0,368,8,0,1960,1960,0,0); image(0,scl, 0,0,16,-60,-60,0); wait(16); image(0,scl, 0,0,0,0,0,0); image(0,anis, 8); image(0,anii, 1);
endif;
#formem(party); subevent(pfable,); nextmem(all); if(nowres);
bc(*self,,enekind,==,yj-a5); and; evflagsw(dspyj5img,==,1); or; bc(*self,,enekind,==,yj-a4); if(nowres);
evflagsw(checkallm,==,1); if(nowres);
text(1,(face=+evbch,swait=-1),uӂӁAXeLȓal΂ˁc%o[*heart]v);
else;
text(1,(face=+evbch,swait=-1),uӂӁAXeLȓalˁc%o[*heart]v);
endif;
#evflagsw(pr_yj-a4img,=,1);
#image(0,scl, 256,0,0,,,0); wait(17);
image(0,scl, 0,0,-16,60,60,0); wait(16);
#image(0,scl, 0,0,-2,90,90,0); wait(128);
image(0,set,);
endif;
#bcslc(>*yj-a4,alv); subevent(pfield,*btpos);
#beffect(heart4,1,1,-1,-1);
#evflagsw(checkallm,==,1); and; mapis(X̃_W); if(nowres); music(main,=,mystery:0); endif;
evflagsw(checkallm,==,1); if(nowres); music(main,=,mystery:0); endif;
#music(win,=,); 
endif;

#evflag(instant1,==,2); and; bc(*self,,enekind,==,yj-a5); and; evflagsw(pfnext,==,0); if(nowres);
#evflagsw(checkallm,==,1); if(nowres); music(main,=,mystery:0); endif;
#endif;

bc(*self,,picset,bch,org:*ans,=,6);
#bc(*self,,turn,%,4); or; bc(*self,,turn2,==,0); if(nowres); bc(*self,al2,startan,crm3,); else; bc(*self,al2,startan,dra3,); endif;
bc(*self,,startan,crm3,);
bc(*self,,waitstan); return;
#bc(action,ҋ@,ac9,a); return;
#evflagsw(pr_crms,=,1);

bc(*self,,enekind,==,yj-a5); and; evflagsw(dspyj5img,==,1); or; bc(*self,,enekind,==,yj-a4); and; evflag(instant1,==,2); and; evflagsw(pfnext,==,0); and; evflagsw(checkallm,==,1); if(nowres);
#bc(*self,,enekind,==,yj-a4); or; bc(*self,,enekind,==,yj-a5); and; evflag(instant1,==,2); and; evflagsw(pfnext,==,0); and; evflagsw(checkallm,==,1); if(nowres);
# or; bc(*self,,enekind,==,yj-a5);
text(1,(face=+evbch:crm3,swait=-1),u͂cc͂cc͂cccv);
#evflagsw(pr_crms2,=,1);
#evflagsw(pfnext,=,1);
endif;

#formem(party); subevent(pfable,); if(nowres);
bcslc(,alv); while; if(nowres); subevent(pfable,); if(nowres);

bc(*select,,checkfmt,-); if(nowres);
bc(*select,,pcond, cond,am,>=,3); if(nowres);
bc(*select,,startan,dmg,); fade(out,(type=fade,color=ff80c0,wait=48)); bc(*select,,pcond, cond,,+=,am(-inf)); bc(*select,,endan); fade(in,(type=fade,color=ff80c0,wait=48));
bc(*self,,enekind,==,yj-a5); if(nowres);
bc(*select,,pcond, cond,,<,4); if(nowres); bc(*select,,startan,dmg,); fade(out,(type=fade,color=ff80c0,wait=48)); bc(*select,,pcond, cond,,+=,((4),am(-inf))); bc(*select,,endan); fade(in,(type=fade,color=ff80c0,wait=48)); endif;
else;
bc(*select,,pcond, cond,,<,2); if(nowres); bc(*select,,startan,dmg,); fade(out,(type=fade,color=ff80c0,wait=48)); bc(*select,,pcond, cond,,+=,((2),am(-inf))); bc(*select,,endan); fade(in,(type=fade,color=ff80c0,wait=48)); endif;
endif;
else;
bc(*self,,enekind,==,yj-a5); if(nowres);
bc(*select,,pcond, cond,am,>,0); or; bc(*select,,pcond, cond,,<,8); if(nowres); bc(*select,,startan,dmg,); fade(out,(type=fade,color=ff80c0,wait=48)); bc(*select,,pcond, cond,,+=,((8),am(-inf))); bc(*select,,endan); fade(in,(type=fade,color=ff80c0,wait=48)); endif;
else;
bc(*select,,pcond, cond,am,>,0); or; bc(*select,,pcond, cond,,<,4); if(nowres); bc(*select,,startan,dmg,); fade(out,(type=fade,color=ff80c0,wait=48)); bc(*select,,pcond, cond,,+=,((4),am(-inf))); bc(*select,,endan); fade(in,(type=fade,color=ff80c0,wait=48)); endif;
endif;
endif;
else;
bc(*select,,pcond, cond,,>,0); or; bc(*select,,pcond, cond,am,==,0); if(nowres);
fade(out,(type=fade,color=ff80c0,wait=48)); bc(*select,,pcond, cond,,+=,((-inf),am)); fade(in,(type=fade,color=ff80c0,wait=48));
endif;
endif;

endif;
#nextmem();
bcslc(next,alv); next; endif; wend;

bc(*self,,endan); bc(*self,,waitedan);
bc(*self,,picset,bch,org:*ans,=,*reset);

evflagsw(bt_nodoctr,=,0);
evflagsw(pfnext,=,1);


#uo팸ʗp
<pdable>
bc(*select,,cutelem,n,all,>,0); and; bc(*select,,exilev,al2); and; bc(*select,,pcond, vp,>,1);


#uo팸
<pfdrain>
#JE^[ʂ̎s
return;

#bc(*self,mca,exis); unif(nowres); end; endif;
bc(*self,al2,exis); unif(nowres); end; endif;
bc(*self,,enekind,==,yj-a5); unif(nowres); end; endif;
#bc(*self,,status, mvp,all,); bc(*self,,pcond,vp,<,evf(nowval)); unif(nowres); end; endif;
#bc(*self,,pcond,turn,>=,10); unif(nowres); end; endif;
#endif;

#formem(party); member(select,job,,exis,,n); and; member(select,pcond, vp,>,1); and; member(select,exilev,al2); and; bc(*slcmem,,pcond,turn,>=,40); nextmem(exis); if(nowres);
#formem(party); member(select,job,,exis,,n); and; member(select,pcond, vp,>,1); and; member(select,exilev,al2); and; bc(*slcmem,,pcond,turn,>=,10); nextmem(exis); unif(nowres); end; endif;
#formem(party); member(select,job,,exis,,n); and; member(select,pcond, vp,>,1); and; member(select,exilev,al2); if(nowres); bc(*slcmem,,pcond,turn,>=,10); or; bc(*self,,enekind,==,yj-a5); endif; nextmem(exis); unif(nowres); end; endif;
#evflag(instant1,=,0); bcslc(-,alv); while; if(nowres); bc(*select,,cutelem,n,all,>,0); and; bc(*select,,pcond, vp,>,1); and; bc(*select,,exilev,al2); if(nowres); evflag(instant1,=,1); endif; bcslc(-next,alv); next; endif; wend; evflag(instant1,==,1); unif(nowres); end; endif;
bcslc(-,alv); while; unif(nowres); end; endif; subevent(pdable,); unif(nowres); bcslc(-next,alv); next; endif; wend;

#摜ωĂ烊Zbgi݂̖ŕۗj
#subevent(revertpic,);

evflagsw(bt_nodoctr,=,1);

bc(*self,al2,picset,bch,org:*ans,=,6);
bc(*self,al2,startan,dra3,); bc(*self,al2,waitstan); return;

#formem(party); member(select,job,,exis,,n); and; member(select,pcond, vp,>,1); and; member(select,exilev,al2); and; bc(*slcmem,,pcond,turn,>=,40); if(nowres);
#formem(party); member(select,job,,exis,,n); and; member(select,pcond, vp,>,1); and; member(select,exilev,al2); if(nowres); bc(*slcmem,,pcond,turn,>=,10); or; bc(*self,,enekind,==,yj-a5); endif; if(nowres);
#bcslc(-,alv); while; if(nowres); subevent(pdable,); if(nowres); bc(*select,,turn2,>=,10); or; bc(*self,,enekind,==,yj-a5); endif; if(nowres);
#bcslc(-,alv); while; if(nowres); subevent(pdable,); if(nowres); bc(*select,,pcond,turn,>=,10); or; bc(*self,,enekind,==,yj-a5); endif; if(nowres);
#bcslc(-,alv); while; if(nowres); subevent(pdable,); if(nowres); bc(*select,,pcond,turn,>=,10); endif; if(nowres);
bcslc(-,alv); while; if(nowres); subevent(pdable,); if(nowres); bc(*self,,enekind,==,yj-a5); endif; if(nowres);
bc(*select,,startan,dmg,); 
#bc(*self,,pcond,turn,); evflag(instant2,=,evf(nowval)); evflag(instant2,-=,39);
#member(select,status, mvp,all,); evflag(instant4,=,evf(nowval));
#while; evflag(instant4,`=,2); evflag(instant2,-=,1); evflag(instant2,>,0); if(nowres); next; endif; wend;
#evflag(instant2,=,2);
#member(select,pcond, vp,); evflag(instant1,=,evf(nowval)); evflag(instant3,=,evf(instant1)); evflag(instant1,`=,evf(instant2)); evflag(instant1,min=,instant4); member(select,pcond, vp,=,evf(instant1)); evflag(instant3,-=,evf(instant1));
bc(*select,,pcond, vp,); evflag(instant1,=,evf(nowval)); evflag(instant1,/=,2); evflag(instant3,=,evf(instant1)); evflag(instant3,*=,-1); bc(*select,,pcond, vp,+=,evf(instant3));
bc(*self,,status,mvp,all,); bc(*self,,pcond,vp,<,evf(nowval)); if(nowres);
#bc(*self,,pcond,vp,+=,evf(instant3));
bc(*self,,pcond,vp,+=,evf(instant1));
#beffect(drain_sp,1,*slcmem,,*self,,,7,1);
beffect(drain_sp,1,*select,,*self,,,7,1);
else;
#bc(*self,,pcond,ep,+=,evf(instant3));
#beffect(emit_sp,1,*slcmem,,*self,,,7,1);
beffect(emit_sp,1,*select,,*self,,,7,1);
endif;
return;
bc(*select,,endan); 

endif;
#nextmem();
bcslc(-next,alv); next; endif; wend;

bc(*self,al2,endan); bc(*self,al2,waitedan);
bc(*self,al2,picset,bch,org:*ans,=,*reset);

evflagsw(bt_nodoctr,=,0);


#^[o߂ɂ銮S
<kanmi>
#Fbc(*self,mca)擾łȂԂ̏ꍇAexisȊO͔肪ɂłȂ
bc(*self,mca,exis); unif(nowres); end; endif;
bc(*self,,pcond,turn,<=,20); if(nowres); end; endif;

#JE^[ʂ̎s
return;

bcslc(-,alv);
while; if(nowres);
bc(*select,,pcond, cond,,==,0); and; bc(*select,,pcond, cond,,>,0); and; bc(*select,,pcond,turn,>,20); if(nowres);
beffect(heart_vol_sp,1,*select,,*self,,,7,1);
fade(out,(type=fade,color=ff80c0,wait=48)); bc(*select,,pcond, cond,,+=,); fade(in,(type=fade,color=ff80c0,wait=48));
end;
endif;
bcslc(-next,alv); next; endif; wend;

#formem(party);
##text(1,face=+select,%mem[s]IĂB);
##̎ł́AnextmemɍsȂꍇ
##member(select,pcond, cond,,==,0); and; member(select,pcond, cond,,>,0); and; member(select,exilev,al2); and; bc(*slcmem,alv,pcond,turn,>,0); if(nowres);
#member(select,pcond, cond,,==,0); and; member(select,pcond, cond,,>,0); and; member(select,exilev,al2); if(nowres); bc(*slcmem,alv,pcond,turn,>,20); if(nowres);
##member(select,startan,dmg,); fade(out,(type=fade,color=ff80c0,wait=48)); member(select,pcond, cond,,+=,); member(select,endan); fade(in,(type=fade,color=ff80c0,wait=48));
#beffect(heart_vol_sp,1,*slcmem,,*self,1,,7,1);
#fade(out,(type=fade,color=ff80c0,wait=48)); member(select,pcond, cond,,+=,); fade(in,(type=fade,color=ff80c0,wait=48));
##text(1,face=+select,IB);
#end;
#endif; endif;
##true;
##false;
##text(1,face=+select,芮B);
#nextmem();


#O
<casteq>
bc(*self,mca,pcond,turn,<=,20); if(nowres); end; endif;

#JE^[ʂ̎s
return;
bc(*self,mca,exis); unif(nowres); end; endif;

formem(party);
member(select,equip,*each,exis,chab,(,U˖h,Su,̈,̏,ž,z̈,,<܂ڂ,np,<npS,,<));
#or; member(select,pcond, cond,,>,0);
and; member(select,pcond, cond,,>,0); and; member(select,exilev,al2); and; bc(*slcmem,alv,pcond,turn,>,20);
nextmem(exis); unif(nowres); end; endif;

text(1,(face=+evbch:crm3,swait=-1,lwait=192),u˂cc̒ẮAOāH%o[*heart]v);

evtext(subtx1,=,*);

formem(party);
member(select,equip,*each,exis,chab|slc,(,U˖h,Su,̈,̏,ž,z̈,,<܂ڂ,np,<npS,,<));
and; member(select,pcond, cond,,>,0); and; member(select,exilev,al2); and; bc(*slcmem,alv,pcond,turn,>,20); if(nowres);
member(select,equip,*each,release,*selected);
evtext(subtx1,*=,*%mem[s]%it[s]OĂ܂I);
#else;
#member(select,pcond, cond,,>,0); if(nowres); member(select,pcond, cond,,=,0);
#evtext(subtx1,+=,*%mem[s]%cond[*]OĂ܂I\n);
#endif;
#endif;
endif;
nextmem();

evtext(subtx1,!=,*); if(nowres); text(1,lwait=128,%str[*subtx1]); endif;


#n֒ǌ
<dsattack>
return;
#formem(party); member(select,job,,exis,,n); if(nowres); bc(*self,mca,action,U,0,1,*slcmem,alv); endif; nextmem();
bc(*self,,rannrate,>=,50); if(nowres);
bcslc(,alv); while; if(nowres); bc(*select,,cutelem,n,all,>,0); if(nowres);
bc(*self,al2,action,U,0,1,*select,alv);
bc(*self,,enekind,==,senkshag); if(nowres); bc(*self,al2,action,U,0,1,*select,alv); endif;
endif; bcslc(next,alv); next; endif; wend;
else;
bcslc(-,alv); while; if(nowres); bc(*select,,cutelem,n,all,>,0);
if(nowres); bc(*self,al2,action,U,0,1,*select,alv);
bc(*self,,enekind,==,senkshag); if(nowres); bc(*self,al2,action,U,0,1,*select,alv); endif;
endif; bcslc(-next,alv); next; endif; wend;
endif;

#bc(*self,mca,exis); unif(nowres); end; endif;
#bcslc(-,alv); while; if(nowres); bc(*self,mca,action,U,0,1,*select,alv); endif;
#bcslc(-next,exi); next; endif; wend;


#탂[h
<kessenmode>
evarg(mode);

# Ăꍇ
formem(party); member(select,equip,*each,==,̈); and; evflag(*evarg:mode,!=,2); or; member(select,equip,*each,==,); nextmem(exis); if(nowres);
#item(check:eq,̈,1); or; item(check:eq,,1); if(nowres);
text(1,(face=uam,ym=b),Ȃ󂪋PAՂ̗͂Ăъ񂹂cI);
evflagsw(moonbari,=,0);
fade(out,(type=fade,color=ffc000,wait=48));
sound(warp); formem(party);
#member(select,pcond, cond,,+=,((2),ˏ(2),U(5),h(5)));
#member(select,pcond, cond,,+=,((2),ˏ(2),U(5),h(5),с(5),灪(5),m(5),(5)));
member(select,pcond, cond,,+=,((2),ˏ(2),));
#member(select,pcond, kdg,+=,99999999);
nextmem(all);
fade(in,(type=fade,color=ffc000,wait=48));
end;
endif;

formem(party); member(select,equip,*each,==,̈); nextmem(exis); if(nowres);
text(1,(face=uam,ym=b),Ȃ󂪋PA͐[ւƈݍ܂Ă܂cc);
endif;


#aՂ
<betest1>
#text(1,,ueXgpv);
#music(cassle,0);

#bcslc(>*yj-a4,2); bc(exis); if(nowres); subevent(pfield,*btpos); endif;

#bc(*self,,pcond, ep,+=,24);

#bc(*self,,kdgauge,+=,3000); end;

#bc(*self,,action,ʏU,ac1,>*pigmarg:1,2);
#bc(*self,,action,ʏU,ac1,>*pigmarg,2);
#bc(*self,,action,ʏU,ac1,>*pigmarg:2,2);
#end;

#bc(>,2,set,weigy,2); bc(>1,2,set,tsannue,4); bc(>2,2,set,pigmarg,0); end;

#bcslc(,); bc(pcond, vp,>=,1000); if(nowres); text(1,,uo1000%c088ȏ%cd); else; text(1,,uo1000%c800%cd); endif;
#bcslc(,); bc(pcond, ep,<,1000); if(nowres); text(1,,do1000%c800%cd); else; text(1,,do1000%c088ȏ%cd); endif;

#bcslc(,); bc(action,Ɖ,nrm,-m2); return; bc(action,S̐],nrm,-m2);
#bcslc(,); bc(action,Ɖ,nrm,); bc(action,S̐],nrm,);
#bcslc(,); bc(action,Ɖ,ac2,-); bc(action,S̐],ac5,-);

#bcslc(+m2,); bc(action,ʏU,nrm,-m2); return;
#bcslc(-m2,); bc(action,ʏU,nrm,+m1); return;
#bcslc(+m2,); bc(action,NbZg,nrm,-m2); return;

#bc(-,3,exis);
bc(-,al2,exis); and; bc(*self,,exis); if(nowres); bc(-,alv,action,ʏU,1,0,*self,); return; endif;
bc(-,al2,exis); and; bc(*self,,exis); if(nowres); bc(*self,,action,a,1,0,-,alv); return; endif;
#text(0,eXg);
bc(-,al2,exis); and; bc(*self,,exis); if(nowres); bc(-,alv,action,ʏU,1,0,*self,); return; endif;
#bc(-,al2,exis); and; bc(*self,,exis); if(nowres); bc(-,alv,action,NbZg,1,0,*self,); return; endif;
bc(-,al2,exis); and; bc(*self,,exis); if(nowres); bc(*self,,action,NbZg,1,0,-,alv); return; endif;
bc(-,al2,exis); and; bc(*self,,exis); if(nowres); bc(-,alv,action,ʏU,1,0,*self,); return; endif;
#bc(-,al2,exis); and; bc(*self,,exis); if(nowres); bc(-,alv,action,\a,1,0,*self,); return; endif;
bc(-,al2,exis); and; bc(*self,,exis); if(nowres); bc(*self,,action,\a,1,0,-,alv); return; endif;
bc(-,al2,exis); and; bc(*self,,exis); if(nowres); bc(-,alv,action,ʏU,1,0,*self,); return; endif;
#bc(-,al2,exis); and; bc(*self,,exis); if(nowres); bc(-,alv,action,~֎a,1,0,*self,); return; endif;
bc(-,al2,exis); and; bc(*self,,exis); if(nowres); bc(*self,,action,~֎a,1,0,-,alv); return; endif;
bc(-,al2,exis); and; bc(*self,,exis); if(nowres); bc(-,alv,action,ʏU,1,0,*self,); return; endif;
#bc(-,al2,exis); and; bc(*self,,exis); if(nowres); bc(-,alv,action,AX^XN,1,0,*self,); return; endif;
bc(-,al2,exis); and; bc(*self,,exis); if(nowres); bc(*self,,action,AX^XN,1,0,-,alv); return; endif;

#music(def,0);

bc(*self,,pcond, ep,+=,-30);

#bcslcR}hi퓬pBbcbeffec*selectőIłΏۂwj
#iȂƊYԐ擪̂̂IB*wœ̓Gwj
#*self:Cxgҁ@*selectF̃R}hőIҁ@*slcmemFmemslcőIo[@*targetF҂̍sΏہ@<Fԑ@>FG@+F҂Ɠỉe݁j@-F҂ƔΑỉe݁j@++F҂Ɠỉej@-F҂ƔΑỉej@*autoFΏۂɈς˂
#i+-͐퓬JnCxgł͌ʂj
#ΏۂƂԁiexilevwƓtOw\BAwȂ琧A-tƓěƂ܂Ȃ̂j

#bcR}hi퓬pj
#퓬ʒuibcslcƓj
#imemberR}hƓj

#beffectR}hi퓬pAGtFNg𔭓Bړfeffectgpj
#GtFNgʎqC񐔁CΏہi~񐔁Bw@bcslcƓjCiw@bcslcƓjĆ͈iskill.txt̕ƓjC퓬s\L܂ނۂi+1F퓬s\܂ށA+2F\퓬s\܂ށA+4F\퓬s\܂ށjCGtFNgI܂ő҂ǂC
#ΏێẃAwȂCxgLAbcȂbcslcőILAmemȂmemőILB

#btendR}hi퓬Ij

#bttopdspR}hiZɏoėEChE\j

#bcmslcR}hi*selectŎwłΏۂvC[őIB肵ꍇ͐^ALZꍇ͋U𔭐j
#퓬s\L܂߂邩ibeffectƋʁj
#LZہi1ŉj


#OU
<bcautotarg>
bc(-,al2,exis); if(nowres); bc(*self,al2,action,WΉ,0,0,*auto); return; endif;
bc(-,al2,exis); if(nowres); bc(*self,al2,action,WX,0,0,*auto); return; endif;
bc(-,al2,exis); if(nowres); bc(*self,al2,action,Wd,0,0,*auto); return; endif;


#_XL
<bcrandsk>
consume;
label(1);
rand(0,29);
evflag(nowval,==,0);  if(nowres); bc(*self,al2,action,ʏU,0,1,*auto);		return; goto(2); endif;
evflag(nowval,==,1);  if(nowres); bc(*self,al2,action,\a,0,1,*auto);		return; goto(2); endif;
evflag(nowval,==,2);  if(nowres); bc(*self,al2,action,AX^XN,0,1,*auto);		return; goto(2); endif;
evflag(nowval,==,3);  if(nowres); bc(*self,al2,action,h˂,0,1,*auto);		return; goto(2); endif;
evflag(nowval,==,4);  if(nowres); bc(*self,al2,action,Cʊ,0,1,*auto);		return; goto(2); endif;
evflag(nowval,==,5);  if(nowres); bc(*self,al2,action,,0,1,*auto);			return; goto(2); endif;
evflag(nowval,==,6);  if(nowres); bc(*self,al2,action,͋C,0,1,*auto);		return; goto(2); endif;
evflag(nowval,==,7);  if(nowres); bc(*self,al2,action,S̋CU,0,1,*auto);		return; goto(2); endif;
evflag(nowval,==,8);  if(nowres); bc(*self,al2,action,Ή,0,1,*auto);			return; goto(2); endif;
evflag(nowval,==,9);  if(nowres); bc(*self,al2,action,,0,1,*auto);			return; goto(2); endif;
evflag(nowval,==,10); if(nowres); bc(*self,al2,action,X,0,1,*auto);			return; goto(2); endif;
evflag(nowval,==,11); if(nowres); bc(*self,al2,action,,0,1,*auto);			return; goto(2); endif;
evflag(nowval,==,12); if(nowres); bc(*self,al2,action,d,0,1,*auto);			return; goto(2); endif;
evflag(nowval,==,13); if(nowres); bc(*self,al2,action,,0,1,*auto);			return; goto(2); endif;
evflag(nowval,==,14); if(nowres); bc(*self,al2,action,,0,1,*auto);			return; goto(2); endif;
evflag(nowval,==,15); if(nowres); bc(*self,al2,action,MKtbV,0,1,*auto);	return; goto(2); endif;
evflag(nowval,==,16); if(nowres); bc(*self,al2,action,,0,1,*auto);			return; goto(2); endif;
evflag(nowval,==,17); if(nowres); bc(*self,al2,action,CJX~,0,1,*auto);		return; goto(2); endif;
evflag(nowval,==,18); if(nowres); bc(*self,al2,action,ŕ,0,1,*auto);		return; goto(2); endif;
evflag(nowval,==,19); if(nowres); bc(*self,al2,action,gUეg,0,1,*auto);		return; goto(2); endif;
evflag(nowval,==,20); if(nowres); bc(*self,al2,action,gUg,0,1,*auto);		return; goto(2); endif;
evflag(nowval,==,21); if(nowres); bc(*self,al2,action,쐯e,0,1,*auto);		return; goto(2); endif;
evflag(nowval,==,22); if(nowres); bc(*self,al2,action,S̐],0,1,*auto);		return; goto(2); endif;
evflag(nowval,==,23); if(nowres); bc(*self,al2,action,S̋ÌŔg,0,1,*auto);		return; goto(2); endif;
evflag(nowval,==,24); if(nowres); bc(*self,al2,action,S̕w,0,1,*auto);		return; goto(2); endif;
evflag(nowval,==,25); if(nowres); bc(*self,al2,action,S̉,0,1,*auto);		return; goto(2); endif;
evflag(nowval,==,26); if(nowres); bc(*self,al2,action,S̔ˏ,0,1,*auto);		return; goto(2); endif;
evflag(nowval,==,27); if(nowres); bc(*self,al2,action,Đw,0,1,*auto);		return; goto(2); endif;
evflag(nowval,==,28); if(nowres); bc(*self,al2,action,`[WU,0,1,*auto);		return; goto(2); endif;
evflag(nowval,==,29); if(nowres); bc(*self,al2,action,nYI,0,1,*auto);		return; goto(2); endif;

#evflag(nowval,==,0);  if(nowres); bc(*self,al2,action,a,0,1,*auto);			return; goto(2); endif;
#evflag(nowval,==,2);  if(nowres); bc(*self,al2,action,a,0,1,*auto);		return; goto(2); endif;
#evflag(nowval,==,2);  if(nowres); bc(*self,al2,action,~֎a,0,1,*auto);		return; goto(2); endif;
#evflag(nowval,==,4);  if(nowres); bc(*self,al2,action,˂,0,1,*auto);			return; goto(2); endif;
#evflag(nowval,==,5);  if(nowres); bc(*self,al2,action,ő˂,0,1,*auto);		return; goto(2); endif;
#evflag(nowval,==,5);  if(nowres); bc(*self,al2,action,,0,1,*auto);			return; goto(2); endif;
#evflag(nowval,==,8);  if(nowres); bc(*self,al2,action,j,0,1,*auto);			return; goto(2); endif;
#evflag(nowval,==,7);  if(nowres); bc(*self,al2,action,,0,1,*auto);			return; goto(2); endif;
#evflag(nowval,==,12); if(nowres); bc(*self,al2,action,Ɖ,0,1,*auto);			return; goto(2); endif;
#evflag(nowval,==,10); if(nowres); bc(*self,al2,action,,0,1,*auto);			return; goto(2); endif;
#evflag(nowval,==,15); if(nowres); bc(*self,al2,action,Ⓚ,0,1,*auto);			return; goto(2); endif;
#evflag(nowval,==,13); if(nowres); bc(*self,al2,action,dC,0,1,*auto);			return; goto(2); endif;
#evflag(nowval,==,18); if(nowres); bc(*self,al2,action,,0,1,*auto);			return; goto(2); endif;
#evflag(nowval,==,6);  if(nowres); bc(*self,al2,action,M,0,1,*auto);			return; goto(2); endif;
#evflag(nowval,==,19); if(nowres); bc(*self,al2,action,ғŕ,0,1,*auto);		return; goto(2); endif;
#evflag(nowval,==,22); if(nowres); bc(*self,al2,action,S̐g,0,1,*auto);		return; goto(2); endif;
#evflag(nowval,==,25); if(nowres); bc(*self,al2S̑,0,1,*auto);			return; goto(2); endif;
#evflag(nowval,==,27); if(nowres); bc(*self,al2,action,NX,0,1,*auto);		return; goto(2); endif;
#evflag(nowval,==,28); if(nowres); bc(*self,al2,action,S̕⏕Q,0,1,*auto);	return; goto(2); endif;
#evflag(nowval,==,30); if(nowres); bc(*self,al2,action,S̏ԉ,0,1,*auto);		return; goto(2); endif;
#evflag(nowval,==,34); if(nowres); bc(*self,al2,action,S̑S,0,1,*auto);		return; goto(2); endif;
#evflag(nowval,==,36); if(nowres); bc(*self,al2,action,`[W,0,1,*auto);		return; goto(2); endif;
#evflag(nowval,==,38); if(nowres); bc(*self,al2,action,ˏ,0,1,*auto);		return; goto(2); endif;
#evflag(nowval,==,39); if(nowres); bc(*self,al2,action,XpCN,0,1,*auto);		return; goto(2); endif;
#evflag(nowval,==,40); if(nowres); bc(*self,al2~[,0,1,*auto);			return; goto(2); endif;

label(2);
#text(0,eXg);
rand(0,7);
bc(*self,al2,exis); and; bc(-,al2,exis); and; evflag(nowval,==,0); if(nowres);
bc(*self,,fmt,==,<); if(nowres);
select2(reset,all);
select2(+s(id=0));
select2(+~(id=1));
select2(*肪ôłxI);
#select(*肪ôłxI(list=s\n~));
#text(0,肪ôłxI);
evflag(*selected,==,0); unif(nowres); end; endif;
endif;
goto(1);
endif;


#GmF
<checkenemy>
timer(ikenai,*stop,=,1);

bcslc(>,); while; if(nowres);
#bcslc(>,1); while; if(nowres);
#bcslc(-,1); while; if(nowres);
beffect(target,1,*select,,*self,,,7,0);

#bc(*select,,subname,print); evtext(subtx1,=,*OF%str[0]);
#bc(*select,,name,print); evtext(subtx1,+=,*w%str[0]x\n);
evtext(subtx1,=,*OF%bch[s].sn[*subname]w%bch[s].nmicx\n);
bc(*select,,status,mvp,all,); evflag(instant1,=,evf(nowval)); bc(*select,,pcond,vp,);
evtext(subtx1,+=,*uoF%ev[*nowval]^%ev[*instant1]);
bc(*select,,skill,checkall,\a); if(nowres); evtext(subtx1,+=,*\n\agpB); endif;
bc(*select,,cdtp2,&,mah); if(nowres); evtext(subtx1,+=,*\n~nԂɂȂĂB); endif;
bc(*select,,rannrate,>=,0); if(nowres); evtext(subtx1,+=,*\nnԂɂȂĂB); endif;
#bc(*select,,rannrate,>=,600); if(nowres); evtext(subtx1,+=,*@U100%); else; bc(*select,,rannrate,>=,300); if(nowres); evtext(subtx1,+=,*@U50%ȏ); else; evtext(subtx1,+=,*@U0%ȏ); endif; endif;
bc(*select,,sealelem,̋Z); if(nowres); evtext(subtx1,+=,*\ňn󂳂ĂB); endif;
bc(*select,,sealelem,CZ); if(nowres); evtext(subtx1,+=,*\nCn󂳂ĂB); endif;
bc(*select,,exilev,exi); unif(nowres); evtext(subtx1,+=,*\n񑶍ݏԁB); endif;
bc(*select,,exilev,alv); unif(nowres); evtext(subtx1,+=,*\n퓬\ԁB); endif;
bc(*select,,exilev,al2); unif(nowres); evtext(subtx1,+=,*\nSŗvԁB); endif;
bc(*select,,exilev,mva); unif(nowres); evtext(subtx1,+=,*\nss\ԁB); endif;
bc(*select,,exilev,cta); unif(nowres); evtext(subtx1,+=,*\ns\ԁB); endif;
bc(*select,,exilev,mca); unif(nowres); evtext(subtx1,+=,*\nss\ors\ԁB); endif;
text(1,face=+slcbch,%str[*subtx1]);

#bc(*select,,name,print); bc(*select,,status,mvp,all,); evflag(instant1,=,evf(nowval)); bc(*select,,pcond,vp,); text(1,,OF%str[0]\nuoF%ev[*nowval]^%ev[*instant1]);
#bc(*select,,skill,checkall,\a); if(nowres); text(1,,\agpB); endif;
#bc(*select,,cdtp2,&,mah); if(nowres); text(1,,~nԂɂȂĂB); endif;
#bc(*select,,rannrate,>=,0); if(nowres); text(1,,nԂɂȂĂB); endif;
#bc(*select,,sealelem,̋Z); if(nowres); text(1,,̌n󂳂ĂB); endif;
#bc(*select,,sealelem,CZ); if(nowres); text(1,,Cn󂳂ĂB); endif;
#bc(*select,,exilev,alv); unif(nowres); text(1,,퓬s\ԁB); endif;

#bc(*select,,status,cond,,all,); text(1,,ŏԑϐi펞jF%ev[*nowval]);
#bc(*select,,status,cond,,encd,); text(1,,ŏԑϐiԍjF%ev[*nowval]);
#bc(*select,,enekind,==,napul); if(nowres); 
#bc(*select,,picset,bch,org:nrm,==,napul); if(nowres); bc(*select,,picset,bch,org,=,(nrm=wtfairy-t,snf=wtfairy-t-snf,kch=wtfairy-t-kch,act0=wtfairy-t-act0,dmg=wtfairy-t-dmg,rcv=wtfairy-t-rcv,grd=wtfairy-t-grd,atk1=wtfairy-t-atk1,rad1=wtfairy-t-rad1,atk2=wtfairy-t-atk2,rad2=wtfairy-t-rad2),);
#else; bc(*select,,picset,bch,org,reset); endif;
#endif;
bcslc(>next,); next; endif; wend;
#bcslc(>next,exi); next; endif; wend;
#bcslc(-next,exi); next; endif; wend;
#text(1,,`FbNIB);

#timer(ikenai,*exis); if(nowres); text(1,,Ȃ^C}[݂ĂB); timer(ikenai,*count,<,10); if(nowres); text(1,,10b؂ĂB); endif; endif;
#timer(ikenai,*stop,=,0);


#߂
<revenemy>
#bc(>,0,apr,!=,0); if(nowres); bc(>,0,apr,=,0,); else; bc(>,0,apr,=,1,); endif; end;
bc(>,-exi,exis); if(nowres); bc(>,-exi,apr,=,1,); consume; else; text(1,,߂ׂΏۂȂB); endif;


#GLO
<dsprenemy>
bcslc(>,alv); bcmslc(3,1); if(nowres);
bc(*select,,fmt,==,>); and; bc(*select,,status,esc,all,<=,81); if(nowres); bc(*select,,apr,=,0,); consume;
return;
else; text(1,,̃LN^[͏OłʁB); endif;
else; text(1,,~܂B); endif;


#CxgU
<evattack>
bcslc(>,alv); bcmslc(3,1); if(nowres);
#bc(*select,alv,attack,2,(((49152,0,0),0,36,36,36, 543,543), ,0,, eq3, ,,3/4,1/3,4,,)); consume; return;
select2(+ʏ(id=0));
select2(+_[W\(id=1));
select2(+_[WANV(id=2));
select2(+_[W\ANV(id=3));
select2(*m[hIn);
#select(*m[hIn(list=ʏ\n_[W\\n_[WANV\n_[W\ANV));
evflag(*selected,==,0); if(nowres); bc(*select,alv,attack,0,(((vp:61016),0,42,42,42, 768,768), ,0,, eq3, ,,,3/4,1/3,4,,)); consume; return; end; endif;
evflag(*selected,==,1); if(nowres); bc(*select,alv,attack,0,(((vp:61016),0,42,42,42, 768,768), ,0,, eq3, ,,,3/4,1/3,4,nddm,)); consume; return; end; endif;
evflag(*selected,==,2); if(nowres); bc(*select,alv,attack,0,(((vp:61016),0,42,42,42, 768,768), ,0,, eq3, ,,,3/4,1/3,4,nact,)); consume; return; end; endif;
evflag(*selected,==,3); if(nowres); bc(*select,alv,attack,0,(((vp:61016),0,42,42,42, 768,768), ,0,, eq3, ,,,3/4,1/3,4,nddm|nact,)); consume; return; end; endif;
else; text(1,,~܂B); endif;


#ԏ
<btcallmem>
#party(off,l); party(on,lKCRc); end;

evflag(*phase,==,id(phase:btl)); if(nowres);
select(*mԑIn(udev=update_btcallmem));
enparty(==,main); if(nowres);
evflag(*selected,==,0); if(nowres); party(,on,hard,l); party(,on,hard,ll); party(,on,hard,lԌ); party(,on,hard,ld_); subevent(kigae,); consume; end; endif;
evflag(*selected,==,1); if(nowres); party(,on,hard,lcq); party(,on,hard,l{bg); party(,on,hard,l̗d); party(,on,hard,lKCRc); subevent(kigae,); consume; end; endif;
evflag(*selected,==,2); if(nowres); party(,on,hard,la); party(,on,hard,llԂa); party(,on,hard,lԌa); party(,on,hard,ld_a); subevent(kigae,); consume; end; endif;
evflag(*selected,==,3); if(nowres); party(,on,hard,lcqa); party(,on,hard,l{bga); party(,on,hard,l̗da); party(,on,hard,lKCRca); subevent(kigae,); consume; end; endif;
evflag(*selected,==,4); if(nowres); party(,on,hard,lb); party(,on,hard,llԂb); party(,on,hard,lԌb); party(,on,hard,ld_b); subevent(kigae,); consume; end; endif;
evflag(*selected,==,5); if(nowres); party(,on,hard,lcqb); party(,on,hard,l{bgb); party(,on,hard,l̗db); party(,on,hard,lKCRcb); subevent(kigae,); consume; end; endif;
else;
evflag(*selected,==,0); if(nowres); party(,on,,l); party(,on,,ll); party(,on,,lԌ); party(,on,,ld_); subevent(kigae,); consume; end; endif;
evflag(*selected,==,1); if(nowres); party(,on,,lcq); party(,on,,l{bg); party(,on,,l̗d); party(,on,,lKCRc); subevent(kigae,); consume; end; endif;
evflag(*selected,==,2); if(nowres); party(,on,,la); party(,on,,llԂa); party(,on,,lԌa); party(,on,,ld_a); subevent(kigae,); consume; end; endif;
evflag(*selected,==,3); if(nowres); party(,on,,lcqa); party(,on,,l{bga); party(,on,,l̗da); party(,on,,lKCRca); subevent(kigae,); consume; end; endif;
evflag(*selected,==,4); if(nowres); party(,on,,lb); party(,on,,llԂb); party(,on,,lԌb); party(,on,,ld_b); subevent(kigae,); consume; end; endif;
evflag(*selected,==,5); if(nowres); party(,on,,lcqb); party(,on,,l{bgb); party(,on,,l̗db); party(,on,,lKCRcb); subevent(kigae,); consume; end; endif;
#evflag(*selected,==,0); if(nowres); bcslc(<,-exi); bc(set,l,,); bcslc(<,-exi); bc(set,ll,,); bcslc(<,-exi); bc(set,lԌ,,); bcslc(<,-exi); bc(set,ld_,,); consume; end; endif;
#evflag(*selected,==,1); if(nowres); bcslc(<,-exi); bc(set,lcq,,); bcslc(<,-exi); bc(set,l{bg,,); bcslc(<,-exi); bc(set,l̗d,,); bcslc(<,-exi); bc(set,lKCRc,,); consume; end; endif;
#evflag(*selected,==,2); if(nowres); bcslc(<,-exi); bc(set,la,,); bcslc(<,-exi); bc(set,llԂa,,); bcslc(<,-exi); bc(set,lԌa,,); bcslc(<,-exi); bc(set,ld_a,,); consume; end; endif;
#evflag(*selected,==,3); if(nowres); bcslc(<,-exi); bc(set,lb,,); bcslc(<,-exi); bc(set,llԂb,,); bcslc(<,-exi); bc(set,lԌb,,); bcslc(<,-exi); bc(set,ld_b,,); consume; end; endif;
endif;
end;
endif;

enparty(==,main); if(nowres); party(,changedlg,1); else; party(,changedlg,0); endif; if(nowres); subevent(kigae,); consume; end; endif;


<update_btcallmem>
#select(reset,all);
select(+w(id=0)); select(+w(id=1));
if(evf(*sw:pr_honpen)!=0); select(+Ow(id=2)); select(+lw(id=3)); endif;
if(evf(*sw:pr_dfmoon)!=0); select(+ܐw(id=4)); select(+Zw(id=5)); endif;
select(+~);


#ԉU
<btuncallmem>
#bcslc(-,alv); bc(attack,alv, 4000,0,4000, 5000,5000, 0,0,0, 60,0, ,a,20,0);
party(,off,l); party(,off,ll); party(,off,lԌ); party(,off,ld_);
party(,off,lcq); party(,off,l{bg); party(,off,l̗d); party(,off,lKCRc);
party(,off,la); party(,off,llԂa); party(,off,lԌa); party(,off,ld_a);
party(,off,lcqa); party(,off,l{bga); party(,off,l̗da); party(,off,lKCRca);
party(,off,lb); party(,off,llԂb); party(,off,lԌb); party(,off,ld_b);
party(,off,lcqb); party(,off,l{bgb); party(,off,l̗db); party(,off,lKCRcb);
#bcslc(<*l,exi); bc(set,,,); bcslc(<*ll,exi); bc(set,,,); bcslc(<*lԌ,exi); bc(set,,,); bcslc(<*ld_,exi); bc(set,,,);
#bcslc(<*lcq,exi); bc(set,,,); bcslc(<*l{bg,exi); bc(set,,,); bcslc(<*l̗d,exi); bc(set,,,); bcslc(<*lKCRc,exi); bc(set,,,);
#bcslc(<*la,exi); bc(set,,,); bcslc(<*llԂa,exi); bc(set,,,); bcslc(<*lԌa,exi); bc(set,,,); bcslc(<*ld_a,exi); bc(set,,,);
#bcslc(<*lb,exi); bc(set,,,); bcslc(<*llԂb,exi); bc(set,,,); bcslc(<*lԌb,exi); bc(set,,,); bcslc(<*ld_b,exi); bc(set,,,);
consume;


#\
<becanescape>
evflagsw(bt_noescape,==,1); if(nowres); evflagsw(bt_noescape,=,0); beffect(up,1,*self,exi,*self,exi,al2,3,1); consume; text(0,\ɂȂI); end; endif;
evflagsw(bt_alescape,==,0); if(nowres); evflagsw(bt_alescape,=,1); beffect(up2,1,*self,exi,*self,exi,al2,3,1); consume; text(0,m\ɂȂI); end; endif;
text(0,Ɋm\);


#ہiog[hjύX
<changebtm>
#bc(>*ikenai2,,exis); if(nowres); text(1,,͖̂悤cB); end; endif;

#evflag(*btmode,==,0); if(nowres); evflag(*btmode,=,1); beffect(up,1,*self,exi,*self,exi,al2,3,1); consume; end; endif;
#evflag(*btmode,==,1); if(nowres); evflag(*btmode,=,2); beffect(up,1,*self,exi,*self,exi,al2,3,1); consume; end; endif;

select(*mەύXn(udev=update_changebtm));
evflag(*selected,==,0); if(nowres); evflagsw(bt_noescape,=,0); evflagsw(bt_alescape,=,0); beffect(up,1,*self,exi,*self,exi,al2,3,1); consume; end; endif;
evflag(*selected,==,1); if(nowres); evflagsw(bt_noescape,=,1); evflagsw(bt_alescape,=,0); beffect(down,1,*self,exi,*self,exi,al2,3,1); consume; end; endif;
evflag(*selected,==,2); if(nowres); evflagsw(bt_noescape,=,0); evflagsw(bt_alescape,=,1); beffect(up2,1,*self,exi,*self,exi,al2,3,1); consume; end; endif;


<update_changebtm>
select(+Pމ(id=0));
select(+Pޕs(id=1));
not; bc(>*ikenai2,,exis); select(+PޑS(id=2,en=*nowres));
select(+~); 


#n`_[WύX
<changebtchdmg>
select(*mn`_[WύXn(udev=update_changebtchdmg));
evflag(*selected,==,-1); if(nowres); end; endif;
beffect(star3,1,*self,exi,*self,exi,,3,1);
shake(1,6,6,3,3,16);
evflag(*selected,==,1); if(nowres); btchdmg(&,ŏ); if(nowres); btchdmg(-=,ŏ); beffect(up,1,*self,exi,*self,exi,al3,3,0); else; btchdmg(|=,ŏ); beffect(poison,1,*self,exi,*self,exi,al3,3,0); endif; consume; end; endif;
evflag(*selected,==,2); if(nowres); btchdmg(&,j); if(nowres); btchdmg(-=,j); beffect(up,1,*self,exi,*self,exi,al3,3,0); else; btchdmg(|=,j); beffect(sting,1,*self,exi,*self,exi,al3,3,0); beffect(paraly,1,*self,exi,*self,exi,al3,3,0); endif; consume; end; endif;
evflag(*selected,==,3); if(nowres); btchdmg(&,n); if(nowres); btchdmg(-=,n); beffect(up,1,*self,exi,*self,exi,al3,3,0); else; btchdmg(|=,n); beffect(fire3,1,*self,exi,*self,exi,al3,3,0); beffect(fire_wav2,1,*self,exi,*self,exi,al3,3,0); endif; consume; end; endif;

#select(reset,all); select(+_[W(id=0)); select(+ŏ[h(id=1)); select(+j[h(id=2)); select(+~); select(*mn`_[WύXn);
#evflag(*selected,==,-1); unif(nowres);
#beffect(star3,1,*self,exi,*self,exi,,3,1);
#waiteffect;
#shake(1,6,6,3,3,16);
#evflag(*selected,==,0); if(nowres); btchdmg(); beffect(up,1,*self,exi,*self,exi,al3,3,0); consume; end; endif;
#evflag(*selected,==,1); if(nowres); btchdmg(ŏ); beffect(poison,1,*self,exi,*self,exi,al3,3,0); consume; end; endif;
#evflag(*selected,==,2); if(nowres); btchdmg(j); beffect(sting,1,*self,exi,*self,exi,al3,3,0); beffect(paraly,1,*self,exi,*self,exi,al3,3,0); consume; end; endif;
#endif;


<update_changebtchdmg>
select(+ŏnm^nee(id=1));
select(+jnm^nee(id=2));
select(+nnm^nee(id=3));
select(+~); 


#ԕ\tB[h
<dspstfield>
btchdmg(&,ԕ\); unif(nowres);
fade(out,(type=fade,color=80ffc0,wait=48));
btchdmg(|=,ԕ\);
fade(in,(type=fade,color=80ffc0,wait=48));
else;
text(0,ɕ\ԂɂȂĂ);
endif;


#I[gXLi[
<autoscan>
#btchdmg(&,ԕ\); unif(nowres); subevent(dspstfield,); endif;
btchdmg(|=,ԕ\);


#gp҃eXg
<testbch>
#text(1,(face=+evbch,swait=-1),%mem[b]gpB);
text(1,(face=+evbch,swait=-1),%bch[e]gpB);

evtext(subtx1,=,*);
evtext(subtx1,*=,*F%ene[*lybirzo]); bc(>*lybirzo,,exis); if(nowres); evtext(subtx1,+=,*); else; evtext(subtx1,+=,*͋Ȃ); endif;
evtext(subtx1,*=,*F%ene[*lybirzo]); bc(<*lybirzo,,exis); if(nowres); evtext(subtx1,+=,*); else; evtext(subtx1,+=,*͋Ȃ); endif;
evtext(subtx1,*=,*|F%ene[*lybirzo]); bc(-*lybirzo,,exis); if(nowres); evtext(subtx1,+=,*); else; evtext(subtx1,+=,*͋Ȃ); endif;
evtext(subtx1,*=,*{F%ene[*lybirzo]); bc(+*lybirzo,,exis); if(nowres); evtext(subtx1,+=,*); else; evtext(subtx1,+=,*͋Ȃ); endif;
evtext(subtx1,*=,*||F%ene[*lybirzo]); bc(--*lybirzo,,exis); if(nowres); evtext(subtx1,+=,*); else; evtext(subtx1,+=,*͋Ȃ); endif;
evtext(subtx1,*=,*{{F%ene[*lybirzo]); bc(++*lybirzo,,exis); if(nowres); evtext(subtx1,+=,*); else; evtext(subtx1,+=,*͋Ȃ); endif;
text(1,(face=+evbch,swait=-1),%str[*subtx1]);

evtext(subtx1,=,*);
evtext(subtx1,*=,*F%mem[*l]); bc(>*l,,exis); if(nowres); evtext(subtx1,+=,*); else; evtext(subtx1,+=,*͋Ȃ); endif;
evtext(subtx1,*=,*F%mem[*l]); bc(<*l,,exis); if(nowres); evtext(subtx1,+=,*); else; evtext(subtx1,+=,*͋Ȃ); endif;
evtext(subtx1,*=,*|F%mem[*l]); bc(-*l,,exis); if(nowres); evtext(subtx1,+=,*); else; evtext(subtx1,+=,*͋Ȃ); endif;
evtext(subtx1,*=,*{F%mem[*l]); bc(+*l,,exis); if(nowres); evtext(subtx1,+=,*); else; evtext(subtx1,+=,*͋Ȃ); endif;
evtext(subtx1,*=,*||F%mem[*l]); bc(--*l,,exis); if(nowres); evtext(subtx1,+=,*); else; evtext(subtx1,+=,*͋Ȃ); endif;
evtext(subtx1,*=,*{{F%mem[*l]); bc(++*l,,exis); if(nowres); evtext(subtx1,+=,*); else; evtext(subtx1,+=,*͋Ȃ); endif;
text(1,(face=+evbch,swait=-1),%str[*subtx1]);

bcslc(>,); while; if(nowres);
beffect(target,1,*select,,*self,,,7,0);
text(1,face=+slcbch,%bch[s].sn[*subname]w%bch[s].nmicx);
bcslc(>next:1,); next; endif; wend;

consume;


#[Č
<dokurev>
bc(*target,,pcond, cond,,&,(,,R)); if(nowres);
beffect(rec_ep,1,*target,exi,*self,exi,,3,1); return; bc(*target,,pcond, ep,+=,2);
#bc(*target,,pcond, cond,,!=,0); or; bc(*target,,pcond, cond,,!=,0); or; bc(*target,,pcond, cond,R,!=,0); if(nowres);
#bc(*self,,pcond, cond,,!=,0); or; bc(*self,,pcond, cond,,!=,0); or; bc(*self,,pcond, cond,R,!=,0); if(nowres);
#beffect(up2,1,*target,exi,*self,exi,,3,1); bc(*target,,pcond, cond,,+=,((-inf),(-inf),R(-inf),(1)));
#beffect(up2,1,*self,exi,*self,exi,,3,1); bc(*self,,pcond, cond,,+=,((-inf),(-inf),R(-inf),(1)));
endif;


#[V`FbJ[^[V`FbJ[dw
<checkact>
evarg(mode);
#mode=0F[V`FbJ[
#mode=1F[V`FbJ[dw
#evflag(instant1,=,evf(*evarg:mode));

bcslc(>,alv);
while; bcmslc(3,1); if(nowres);

#gp[V}ӃIiuj
bc(*select,,picset,bch,org:rad1,!=,); and; bc(*select,,picset,bch,org:rad0,!=,); if(nowres); bc(*select,,picset,bch,org:rad0,addzuk); endif;
bc(*select,,picset,bch,org:crm1,!=,); and; bc(*select,,picset,bch,org:crm0,!=,); if(nowres); bc(*select,,picset,bch,org:crm0,addzuk); endif;
bc(*select,,picset,bch,org:dra1,!=,); and; bc(*select,,picset,bch,org:dra0,!=,); if(nowres); bc(*select,,picset,bch,org:dra0,addzuk); endif;
bc(*select,,fmt,==,<); if(nowres); bc(*select,,picset,bch,org,addzuk); endif;

bc(*select,,cdtp2,&,nra); if(nowres); text(1,,̃L̓[V𔭓ȂԂɂȂĂB); next; endif;

while;
bc(*select,,fmt,==,<); if(nowres);
evflag(instant2,=,-1);
else;
evflag(instant2,=,160);
endif;
select(*m[VmFn(cid=,udev=update_checkact(evf(*evarg:mode)),dnev=done_checkact(evf(*evarg:mode)),x=evf(instant2)));
#bc(*select,,fmt,==,<); if(nowres); select(*m[VmFn\n%ct2CgԁF%str[*subtx1]\nAjxF%str[*subtx2]\nGtFNgΏہF%str[*subtx3]%cd(cid=)); 
#else; select(*m[VmFn\n%ct2CgԁF%str[*subtx1]\nAjxF%str[*subtx2]\nGtFNgΏہF%str[*subtx3]%cd(cid=,x=128));
#endif;

#[V`FbN
if(evf(*selected)>=0);
bc(*select,,startan,*evf(*selected),-1);
bc(*select,,waitstan);
#evflagsw(motionefc2,==,0); if(nowres); evflagsw(motionefc1,==,0); unif(nowres); beffect(slash,1,*self,exi,*select,exi,,7,0); endif; else; evflagsw(motionefc1,==,0); if(nowres); beffect(down,1,*self,exi,*select,exi,,7,0); else; beffect(up,1,*select,exi,*self,exi,,7,0); endif; endif;
if(evf(motioneftg)&1); beffect(*motionefc,1,*self,exi,*select,exi,,7,0); endif;
if(evf(motioneftg)&2); beffect(*motionefc,1,*select,exi,*self,exi,,7,0); endif;
if(evf(motionwait)==0); wait(0); else; evflag(motionwait,==,1); if(nowres); wait(40); else; evflag(motionwait,==,2); if(nowres); wait(160); else; text(0,L[҂); endif; endif; endif;
bc(*select,,endan); bc(*select,,waitedan);
next; endif;

#jGtFNg
if(evf(*selected)==-6); subevent(checkdownefc,); next; endif;

#[VT[`
evflag(*selected,==,-10); if(nowres);
beffect(target,1,*select,exi,*self,exi,,7,0);
bc(*select,,picset,bch,all,inzuk);
if(nowres); bc(*select,,name,print); text(1,,%str[0]̃[V̓Rvς݂B);
else; sound(warp); bc(*select,,picset,bch,all,addzuk); bc(*select,,name,print); text(1,,%str[0]̃[VRvB);
endif;
next; endif;

#[VNA
evflag(*selected,==,-11); if(nowres);
bc(*select,,picset,bch,all,subzuk); bc(*select,,name,print); text(1,,%str[0]̃[VNAB);
next; endif;

#S̃[VT[`
evflag(*selected,==,-12); if(nowres);
evtext(subtx1,=,*);
#bcslc(>,alv); while; if(nowres);
bcslc(,alv); while; if(nowres);
#bcslc(>,); while; if(nowres);
beffect(target,1,*select,exi,*self,exi,,7,0);
bc(*select,,picset,bch,all,inzuk);
if(nowres); bc(*select,,fmt,==,>); if(nowres);  bc(*select,,name,print); evtext(subtx1,*=,*%str[0]̃[V̓Rvς݂B); endif;
else; sound(warp); bc(*select,,picset,bch,all,addzuk); bc(*select,,name,print); evtext(subtx1,*=,*%str[0]̃[VRvB);
endif;
bcslc(next,alv); next; endif; wend;
#bcslc(>next,alv); next; endif; wend;
#bcslc(>next,); next; endif; wend;
text(1,,%str[*subtx1]);
bcslc(>,alv);
#bcslc(,alv);
next; endif;

#S̃[VNA
evflag(*selected,==,-13); if(nowres);
evtext(subtx1,=,*);
#bcslc(>,alv); while; if(nowres);
bcslc(,alv); while; if(nowres);
bc(*select,,picset,bch,all,subzuk); bc(*select,,name,print); evtext(subtx1,*=,*%str[0]̃[VNAB);
#bcslc(>next,alv); next; endif; wend;
bcslc(next,alv); next; endif; wend;
text(1,,%str[*subtx1]);
bcslc(>,alv);
#bcslc(,alv);
next; endif;

wend;

next; endif;

wend;

bc(*select,,picset,bch,org:*ans,=,*reset);


<update_checkact>
evarg(mode);
#orgwsƁAWuˑł郁o[̃[V\łȂB
bc(*select,,picset,bch,all:act0,!=,); if(nowres); bc(*select,,picset,bch,all:act0,inzuk); if(nowres); select(adddtp,act,act0,); else; select(+HHH(en=0,id=act:act0)); endif; endif;
bc(*select,,picset,bch,all:act1,!=,); if(nowres); bc(*select,,picset,bch,all:act1,inzuk); if(nowres); select(adddtp,act,act1,); else; select(+HHH(en=0,id=act:act1)); endif; endif;
bc(*select,,picset,bch,all:act2,!=,); if(nowres); bc(*select,,picset,bch,all:act2,inzuk); if(nowres); select(adddtp,act,act2,); else; select(+HHH(en=0,id=act:act2)); endif; endif;
bc(*select,,picset,bch,all:act3,!=,); if(nowres); bc(*select,,picset,bch,all:act3,inzuk); if(nowres); select(adddtp,act,act3,); else; select(+HHH(en=0,id=act:act3)); endif; endif;
bc(*select,,picset,bch,all:atk0,!=,); if(nowres); bc(*select,,picset,bch,all:atk0,inzuk); if(nowres); select(adddtp,act,atk0,); else; select(+HHH(en=0,id=act:atk0)); endif; endif;
bc(*select,,picset,bch,all:atk1,!=,); if(nowres); bc(*select,,picset,bch,all:atk1,inzuk); if(nowres); select(adddtp,act,atk1,); else; select(+HHH(en=0,id=act:atk1)); endif; endif;
bc(*select,,picset,bch,all:atk2,!=,); if(nowres); bc(*select,,picset,bch,all:atk2,inzuk); if(nowres); select(adddtp,act,atk2,); else; select(+HHH(en=0,id=act:atk2)); endif; endif;
bc(*select,,picset,bch,all:atk3,!=,); if(nowres); bc(*select,,picset,bch,all:atk3,inzuk); if(nowres); select(adddtp,act,atk3,); else; select(+HHH(en=0,id=act:atk3)); endif; endif;
bc(*select,,picset,bch,all:sla0,!=,); if(nowres); bc(*select,,picset,bch,all:sla0,inzuk); if(nowres); select(adddtp,act,sla0,); else; select(+HHH(en=0,id=act:sla0)); endif; endif;
bc(*select,,picset,bch,all:sla1,!=,); if(nowres); bc(*select,,picset,bch,all:sla1,inzuk); if(nowres); select(adddtp,act,sla1,); else; select(+HHH(en=0,id=act:sla1)); endif; endif;
bc(*select,,picset,bch,all:sla2,!=,); if(nowres); bc(*select,,picset,bch,all:sla2,inzuk); if(nowres); select(adddtp,act,sla2,); else; select(+HHH(en=0,id=act:sla2)); endif; endif;
bc(*select,,picset,bch,all:sla3,!=,); if(nowres); bc(*select,,picset,bch,all:sla3,inzuk); if(nowres); select(adddtp,act,sla3,); else; select(+HHH(en=0,id=act:sla3)); endif; endif;
bc(*select,,picset,bch,all:sti0,!=,); if(nowres); bc(*select,,picset,bch,all:sti0,inzuk); if(nowres); select(adddtp,act,sti0,); else; select(+HHH(en=0,id=act:sti0)); endif; endif;
bc(*select,,picset,bch,all:sti1,!=,); if(nowres); bc(*select,,picset,bch,all:sti1,inzuk); if(nowres); select(adddtp,act,sti1,); else; select(+HHH(en=0,id=act:sti1)); endif; endif;
bc(*select,,picset,bch,all:sti2,!=,); if(nowres); bc(*select,,picset,bch,all:sti2,inzuk); if(nowres); select(adddtp,act,sti2,); else; select(+HHH(en=0,id=act:sti2)); endif; endif;
bc(*select,,picset,bch,all:sti3,!=,); if(nowres); bc(*select,,picset,bch,all:sti3,inzuk); if(nowres); select(adddtp,act,sti3,); else; select(+HHH(en=0,id=act:sti3)); endif; endif;
bc(*select,,picset,bch,all:pun0,!=,); if(nowres); bc(*select,,picset,bch,all:pun0,inzuk); if(nowres); select(adddtp,act,pun0,); else; select(+HHH(en=0,id=act:pun0)); endif; endif;
bc(*select,,picset,bch,all:pun1,!=,); if(nowres); bc(*select,,picset,bch,all:pun1,inzuk); if(nowres); select(adddtp,act,pun1,); else; select(+HHH(en=0,id=act:pun1)); endif; endif;
bc(*select,,picset,bch,all:pun2,!=,); if(nowres); bc(*select,,picset,bch,all:pun2,inzuk); if(nowres); select(adddtp,act,pun2,); else; select(+HHH(en=0,id=act:pun2)); endif; endif;
bc(*select,,picset,bch,all:pun3,!=,); if(nowres); bc(*select,,picset,bch,all:pun3,inzuk); if(nowres); select(adddtp,act,pun3,); else; select(+HHH(en=0,id=act:pun3)); endif; endif;
bc(*select,,picset,bch,all:rad0,!=,); if(nowres); bc(*select,,picset,bch,all:rad0,inzuk); if(nowres); select(adddtp,act,rad0,); else; select(+HHH(en=0,id=act:rad0)); endif; endif;
bc(*select,,picset,bch,all:rad1,!=,); if(nowres); bc(*select,,picset,bch,all:rad1,inzuk); if(nowres); select(adddtp,act,rad1,); else; select(+HHH(en=0,id=act:rad1)); endif; endif;
bc(*select,,picset,bch,all:rad2,!=,); if(nowres); bc(*select,,picset,bch,all:rad2,inzuk); if(nowres); select(adddtp,act,rad2,); else; select(+HHH(en=0,id=act:rad2)); endif; endif;
bc(*select,,picset,bch,all:rad3,!=,); if(nowres); bc(*select,,picset,bch,all:rad3,inzuk); if(nowres); select(adddtp,act,rad3,); else; select(+HHH(en=0,id=act:rad3)); endif; endif;
bc(*select,,picset,bch,all:crm0,!=,); if(nowres); bc(*select,,picset,bch,all:crm0,inzuk); if(nowres); select(adddtp,act,crm0,); else; select(+HHH(en=0,id=act:crm0)); endif; endif;
bc(*select,,picset,bch,all:crm1,!=,); if(nowres); bc(*select,,picset,bch,all:crm1,inzuk); if(nowres); select(adddtp,act,crm1,); else; select(+HHH(en=0,id=act:crm1)); endif; endif;
bc(*select,,picset,bch,all:crm2,!=,); if(nowres); bc(*select,,picset,bch,all:crm2,inzuk); if(nowres); select(adddtp,act,crm2,); else; select(+HHH(en=0,id=act:crm2)); endif; endif;
bc(*select,,picset,bch,all:crm3,!=,); if(nowres); bc(*select,,picset,bch,all:crm3,inzuk); if(nowres); select(adddtp,act,crm3,); else; select(+HHH(en=0,id=act:crm3)); endif; endif;
bc(*select,,picset,bch,all:dra0,!=,); if(nowres); bc(*select,,picset,bch,all:dra0,inzuk); if(nowres); select(adddtp,act,dra0,); else; select(+HHH(en=0,id=act:dra0)); endif; endif;
bc(*select,,picset,bch,all:dra1,!=,); if(nowres); bc(*select,,picset,bch,all:dra1,inzuk); if(nowres); select(adddtp,act,dra1,); else; select(+HHH(en=0,id=act:dra1)); endif; endif;
bc(*select,,picset,bch,all:dra2,!=,); if(nowres); bc(*select,,picset,bch,all:dra2,inzuk); if(nowres); select(adddtp,act,dra2,); else; select(+HHH(en=0,id=act:dra2)); endif; endif;
bc(*select,,picset,bch,all:dra3,!=,); if(nowres); bc(*select,,picset,bch,all:dra3,inzuk); if(nowres); select(adddtp,act,dra3,); else; select(+HHH(en=0,id=act:dra3)); endif; endif;
bc(*select,,picset,bch,all:crg,!=,); if(nowres); bc(*select,,picset,bch,all:crg,inzuk); if(nowres); select(adddtp,act,crg,); else; select(+HHH(en=0,id=act:crg)); endif; endif;
bc(*select,,picset,bch,all:grd,!=,); if(nowres); bc(*select,,picset,bch,all:grd,inzuk); if(nowres); select(adddtp,act,grd,); else; select(+HHH(en=0,id=act:grd)); endif; endif;
bc(*select,,picset,bch,all:dmg,!=,); if(nowres); bc(*select,,picset,bch,all:dmg,inzuk); if(nowres); select(adddtp,act,dmg,); else; select(+HHH(en=0,id=act:dmg)); endif; endif;
bc(*select,,picset,bch,all:crt,!=,); if(nowres); bc(*select,,picset,bch,all:crt,inzuk); if(nowres); select(adddtp,act,crt,); else; select(+HHH(en=0,id=act:crt)); endif; endif;
bc(*select,,picset,bch,all:blk,!=,); if(nowres); bc(*select,,picset,bch,all:blk,inzuk); if(nowres); select(adddtp,act,blk,); else; select(+HHH(en=0,id=act:blk)); endif; endif;
bc(*select,,picset,bch,all:dsn,!=,); if(nowres); bc(*select,,picset,bch,all:dsn,inzuk); if(nowres); select(adddtp,act,dsn,); else; select(+HHH(en=0,id=act:dsn)); endif; endif;
bc(*select,,picset,bch,all:dkc,!=,); if(nowres); bc(*select,,picset,bch,all:dkc,inzuk); if(nowres); select(adddtp,act,dkc,); else; select(+HHH(en=0,id=act:dkc)); endif; endif;
bc(*select,,picset,bch,all:rcv,!=,); if(nowres); bc(*select,,picset,bch,all:rcv,inzuk); if(nowres); select(adddtp,act,rcv,); else; select(+HHH(en=0,id=act:rcv)); endif; endif;
bc(*select,,picset,bch,all:fst,!=,); if(nowres); bc(*select,,picset,bch,all:fst,inzuk); if(nowres); select(adddtp,act,fst,); else; select(+HHH(en=0,id=act:fst)); endif; endif;
bc(*select,,picset,bch,all:win,!=,); if(nowres); bc(*select,,picset,bch,all:win,inzuk); if(nowres); select(adddtp,act,win,); else; select(+HHH(en=0,id=act:win)); endif; endif;
bc(*select,,picset,bch,all:cng,!=,); if(nowres); bc(*select,,picset,bch,all:cng,inzuk); if(nowres); select(adddtp,act,cng,); else; select(+HHH(en=0,id=act:cng)); endif; endif;
bc(*select,,picset,bch,all:snf,!=,); if(nowres); bc(*select,,picset,bch,all:snf,inzuk); if(nowres); select(adddtp,act,snf,); else; select(+HHH(en=0,id=act:snf)); endif; endif;
bc(*select,,picset,bch,all:kch,!=,); if(nowres); bc(*select,,picset,bch,all:kch,inzuk); if(nowres); select(adddtp,act,kch,); else; select(+HHH(en=0,id=act:kch)); endif; endif;
bc(*select,,picset,bch,all:dwf,!=,); if(nowres); bc(*select,,picset,bch,all:dwf,inzuk); if(nowres); select(adddtp,act,dwf,); else; select(+HHH(en=0,id=act:dwf)); endif; endif;
bc(*select,,picset,bch,all:ert,!=,); if(nowres); bc(*select,,picset,bch,all:ert,inzuk); if(nowres); select(adddtp,act,ert,); else; select(+HHH(en=0,id=act:ert)); endif; endif;
#select(count,==,0); if(nowres); text(0,̃Lɂ̓[VB); next; endif;
select(+jGtFNgmF(id=-6));
evflag(motionwait,==,0); if(nowres); evtext(subtx1,=,*҂Ȃ); else; evflag(motionwait,==,1); if(nowres); evtext(subtx1,=,*40); else; evflag(motionwait,==,2); if(nowres); evtext(subtx1,=,*160); else; evtext(subtx1,=,*L[҂); endif; endif; endif;
select(+Cg^CF%str[*subtx1](id=-2,col=t3,com=s̏Ԃ̑҂));
evflag(motionspd,==,0); if(nowres); evtext(subtx1,=,*W); else; evflag(motionspd,==,1); if(nowres); evtext(subtx1,=,*Œᑬ); else; evflag(motionspd,==,2); if(nowres); evtext(subtx1,=,*Œᑬ̂Q{); else; evtext(subtx1,=,*Œᑬ̂S{); endif; endif; endif;
select(+AjxF%str[*subtx1](id=-3,col=t3,com=Aj[V̑x));
evflag(motioneftg,==,0); if(nowres); evtext(subtx1,=,*); else; evflag(motioneftg,==,1); if(nowres); evtext(subtx1,=,*gp); else; evflag(motioneftg,==,2); if(nowres); evtext(subtx1,=,*I); else; evtext(subtx1,=,*gpҁI); endif; endif; endif;
select(+GtFNgΏہF%str[*subtx1](id=-4,col=t3,com=s𔭓^C~OŃGtFNg𔭐));
select(+GtFNgށF%efc[evf:*motionefc](id=-5,col=t3,com=s𔭓^C~OŔGtFNg));
if(evf(*evarg:mode)==1);
select(+[VT[`(id=-10,col=t2,ic=lens,com=SẴ[Vς݂̏ԂɂB));
select(+[VNA(id=-11,col=t2,ic=eraser,com=SẴ[V𖢌̏ԂɂBӖ͖B));
select(+S̃[VT[`(id=-12,col=t2,ic=lens,com=SĂ̓G̃[Vς݂̏ԂɂB));
select(+S̃[VNA(id=-13,col=t2,ic=eraser,com=SĂ̓G̃[V𖢌̏ԂɂBӖ͖B));
endif;


<done_checkact>
evarg(mode);
if(evf(*selected)==-2); evflag(motionwait,+=,1); evflag(motionwait,%=,4); goto(1); endif;
if(evf(*selected)==-3);
evflag(motionspd,+=,1); evflag(motionspd,%=,4);
if(evf(motionspd)==0); bc(*select,,picset,bch,org:*ans,=,*reset); elif(evf(motionspd)==1); bc(*select,,picset,bch,org:*ans,=,1); elif(evf(motionspd)==2); bc(*select,,picset,bch,org:*ans,=,2); else; bc(*select,,picset,bch,org:*ans,=,4); endif;
goto(1); endif;
if(evf(*selected)==-4); evflag(motioneftg,+=,1); evflag(motioneftg,%=,4); goto(1); endif;
if(evf(*selected)==-5);
evflag(*selected,=,evf(motionefc)); zukan(effect,GtFNgI,(mode=slcable,initid=*selected,dspdetail=0,udev=update_selectcaeffect));
if(evf(*selected)>=0); evflag(motionefc,=,evf(*selected)); endif;
if(evf(*selected)==id(-sysm:iconoff)); evflag(motionefc,=,-1); endif;
goto(1); endif;
#if(evf(*selected)==-6); evflag(*redrawiadlg,=,0); subevent(checkdownefc,); evflag(*redrawiadlg,=,1); goto(1); endif;

select(close); end;
label(1); select(update);


<update_selectcaeffect>
select(adddtp,-sysm,iconoff,t3col|slcable|dspall);


#[VT[`[
<searchact>
bcslc(>,alv); while; if(nowres);
#bcslc(>,2); bcmslc(3,1); if(nowres);
beffect(target,1,*select,exi,*self,exi,,7,0);

bc(*select,,picset,bch,all,inzuk); if(nowres);
bc(*select,,name,print);
text(1,,%str[0]̃[V̓Rvς݂B);
else;
sound(warp); bc(*select,,picset,bch,all,addzuk);
bc(*select,,name,print);
text(1,,%str[0]̃[VRvB);
endif;

#endif;
bcslc(>next,alv); next; endif; wend;


#jGtFNgmF
<checkdownefc>
evflagsw(bt_nobattle,=,1);
while;
#zukan(downefc,jGtFNgmF,(mode=slcable,dspdetail=0));
zukan(downefc,jGtFNgmF,(mode=slcable,y=416,rows=4,cols=1,mincols=1,initid=*selected,dspdetail=0));
if(evf(*selected)==id(downefc:appear)||evf(*selected)==id(downefc:revive)); bc(*select,,setdown,*evf(*selected),2); next; endif;
if(evf(*selected)>=0); bc(*select,,setdown,*evf(*selected),1); next; endif;
#if(evf(*selected)==id(downefc:down2)); bc(*select,,setdown,down2,1); next; endif;
wend;
evflagsw(bt_nobattle,=,0);


#uôdo
<swapcdp>
member(select,pcond, vp,); evflag(instant1,=,evf(nowval));
member(select,pcond, ep,); evflag(instant2,=,evf(nowval)); evflag(instant2,==,0); if(nowres); evflag(instant2,=,1); endif;
member(select,pcond, vp,=,evf(instant2));
member(select,pcond, ep,=,evf(instant1));








#soundR}hi炷j
#
#[vTEhmusicR}hł̂ݑΉB

#musicR}hiy炷j
#^[QbgAZAyF
#^[QbgFmainAoverAbattleAwinAlosewBmainover͋Ɍ݂BGMΏƂƂȂ邪AmainŉʃC[AoverŏʃC[ƂBover͈ꎞIȃCxgp̍ۂɉyftHgɖ߂čpB퓬I}bvړłωȂ̂ŒӁB
#ZF+=Ȃnochangeŵ̂ύXȂB
#yF*silentŖA*defł̃GÃftHgȁA*nochange܂͖wŖύX
#ʁF-9600`0A0ftHgAdefŃGÃftHgʁAnochange܂͖wŖύX

#retposR}hi_WEoɋAꏊύXj
#[hFsetAchecki߂ꏊ邩mFj
#isetj}bvAʒuAʒu
#p
#retpos(set,tB[h,18,5);
#retpos(set,,0,0);

#scrollR}h
#xCxCEFCgԁC
#ux~EFCgԁ16v̋XN[鎖ɂȂB
#Cxgs̊ԁA̓XN[̒SÔŁAɖ߂ɂscrollfc(*actor)ƂB

#scrbendR}h
#o݁Ao݁Ao݁Ao

#scrposR}h
#ʒuAʒu
#̈ʒuw肵܂B
#LPʁiHjłȂsNZPʂł̂ŁAʏ32{̐ƂȂ܂B
#scrpos(0,0); wait(-1);
#scrpos(0,-32); wait(-1);
#scrpos(640,0); wait(-1);
#scrpos(320,960); wait(-1);
#scrpos(320,-1200); wait(-1);

#mcR}hi}bvZύXj
#picF摜
#ansFAjx
#aniFAjR}ԍ
#anwFAjEFCgJEg
#dmgFn`_[W
#btfF퓬tB[h
#encFGJEg
#enegrFGO[vQ
#enegrefFGO[vQƃZQ
#eneexisFG̑݊mF
#eneselectFGO[vI
#blrgnFʍsۏ
#eventFCxg
#evtimeFCxg
#heightF
#resetFZbg
#ifield_eventcassle1_eventŎgpj

#setmapdatR}hi}bvj
#ʒuAʒuAC[ʒuA}bvZԍiڃC[̒lA-1Ȃsρj
#gpƁAZ[uɌ݂̃}bvǂݏ܂̂ŁAt@CeʂCɂȂꍇ̓CxgZ[us݂̂̎gpƂƗǂƎv܂B
#imount_eventŎgpj